OnKeyPress ... - Общие вопросы Delphi - Страница 3

Vova777 · 28.06.2011, 19:09

Парни, я тут придумал так, что скажете:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  #8,'0'..'9': ; // цифры и <Backspace>
  #13: ;// клавиша <Enter>
  '.': // разделитель целой и дробной частей числа
  begin
    DecimalSeparator:= '.';
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); // запрет ввода второго разделителя
  end;
  else // остальные символы запрещены
    Key := Chr(0);
end;
end;


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    begin
      if (Label37.Caption = 'Введите новое значение (диаметр):') and (Edit1.Text <> '') then
      begin
        if (StrToFloat(Edit1.Text) <= 99) and (StrToFloat(Edit1.Text) >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
              else
                Label24.Caption:= 'Диаметр: ' + Edit1.Text + '0' + ' мм'
            end;
          end
        else
          Label24.Caption:= 'Диаметр: н/а';
      end
      else
        Label24.Caption:= 'Диаметр: н/а';
    end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
________

Разбил на 2 процедуры, вроде код работает, пойдет так или можно по лучше сделать?
сори просто на сайте автоматически первые пробелы убираются, может поэтому плохо читаемо ))

Вадим Мошев · 28.06.2011, 19:15

А чтобы хорошо читалось, используйте тэг CODE. Это кнопка с изображением решётки

Да и потом для чего вы поменяли KeyPress на KeyDown? Какой смысл?

Vova777 · 28.06.2011, 19:18

Цитата:

Сообщение от Вадим Мошев

Да и потом для чего вы поменяли KeyPress на KeyDown? Какой смысл?

Просто так код Key = VK_RETURN вместо у меня не работающего Key = #13 поставил.
Key = #13 в процедуре KeyPress использовать не получилось. См. начало темы.

Vova777 · 28.06.2011, 19:19

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    begin
      if (Label37.Caption = 'Введите новое значение (диаметр):') and (Edit1.Text <> '') then
      begin
        if (StrToFloat(Edit1.Text) <= 99) and (StrToFloat(Edit1.Text) >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
              else
                Label24.Caption:= 'Диаметр: ' + Edit1.Text + '0' + ' мм'
            end;
          end
        else
          Label24.Caption:= 'Диаметр: н/а';
      end
      else
        Label24.Caption:= 'Диаметр: н/а';
    end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  #8,'0'..'9': ; // цифры и <Backspace>
  #13: ;// клавиша <Enter>
  '.': // разделитель целой и дробной частей числа
  begin
    DecimalSeparator:= '.';
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); // запрет ввода второго разделителя
  end;
  else // остальные символы запрещены
    Key := Chr(0);
end;
end;

Аватар · 28.06.2011, 19:23

Ни чего вы не поняли, я в 19-том посте красным выделил почему #13 не обрабатывалась

Vova777 · 28.06.2011, 19:46

Цитата:

Сообщение от Аватар

Ни чего вы не поняли, я в 19-том посте красным выделил почему #13 не обрабатывалась

признаю, на заметил. Вот, все исправил, код полностью:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  ddm: double;
begin
  case Key of
  #8, #13, '0'..'9', '.':  // цифры, <Backspace>, <Enter>, разделитель целой и дробной частей числа
  begin
    DecimalSeparator:= '.';
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); // запрет ввода второго разделителя
    if Key = #13 then
    begin
      if Label37.Caption = 'Введите новое значение (диаметр):' then
      begin
        if Edit1.Text <> '' then
        begin
        ddm:= StrToFloat(Edit1.Text);
        if (ddm <= 99) and (ddm >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label24.Caption:= 'Диаметр: ' + FloatToStr(ddm) + ' мм'
              else
                Label24.Caption:= 'Диаметр: ' + FloatToStr(ddm) + '.0' + ' мм'
            end;
          end
        else
          Label24.Caption:= 'Диаметр: н/а';
        end
        else
          Label24.Caption:= 'Диаметр: н/а';
      end;

      if Label37.Caption = 'Введите новое значение (длина):' then
      begin
        if Edit1.Text <> '' then
        begin
        ddm:= StrToFloat(Edit1.Text);
        if (ddm <= 99) and (ddm >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label25.Caption:= 'Длина: ' + FloatToStr(ddm) + ' мм'
              else
                Label25.Caption:= 'Длина: ' + FloatToStr(ddm) + '.0' + ' мм'
            end;
          end
        else
          Label25.Caption:= 'Длина: н/а';
        end
        else
          Label25.Caption:= 'Длина: н/а';
      end;

      if Label37.Caption = 'Введите новое значение (ширина):' then
      begin
        if Edit1.Text <> '' then
        begin
        ddm:= StrToFloat(Edit1.Text);
        if (ddm <= 99) and (ddm >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label26.Caption:= 'Ширина: ' + FloatToStr(ddm) + ' мм'
              else
                Label26.Caption:= 'Ширина: ' + FloatToStr(ddm) + '.0' + ' мм'
            end;
          end
        else
          Label26.Caption:= 'Ширина: н/а';
        end
        else
          Label26.Caption:= 'Ширина: н/а';
      end;

      if Label37.Caption = 'Введите новое значение (радиус):' then
      begin
        if Edit1.Text <> '' then
        begin
        ddm:= StrToFloat(Edit1.Text);
        if (ddm <= 99) and (ddm >= 1) then
          begin
            if Length(Edit1.Text) <= 4 then
            begin
              if Edit1.Text[Length(Edit1.Text)] <> '.' then
                Label27.Caption:= 'Радиус: ' + FloatToStr(ddm) + ' мм'
              else
                Label27.Caption:= 'Радиус: ' + FloatToStr(ddm) + '.0' + ' мм'
            end;
          end
        else
          Label25.Caption:= 'Радиус: н/а';
        end
        else
          Label27.Caption:= 'Радиус: н/а';
      end;
    end;
  end;
  else // остальные символы запрещены
    Key := Chr(0);
end;
end;

flexterful · 29.06.2011, 15:00

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  #8,'0'..'9': ; // цифры и <Backspace>
   #13: // клавиша <Enter> <<<<<<<<<<<< ВОТ ЖЕ ОНО

begin
  if (Label37.Caption = 'Введите новое значение (диаметр):') and ((Edit1.Text <> '') or (Edit1.Text <> '0'))
   then begin
     if Edit1.Text[1] <> '.'
      then Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
      else Label24.Caption:= 'Диаметр: 0' + Edit1.Text + ' мм';
    end
    else Label24.Caption:= 'Диаметр: н/а';
  end;
   '.': // разделитель целой и дробной частей числа
    begin
      DecimalSeparator:= '.';
      if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); // запрет ввода второго разделителя


end;
else // остальные символы запрещены
Key := Chr(0);
end;
end;

Коломбур, однако

flexterful · 29.06.2011, 15:05

опознднул....

Vova777 · 29.06.2011, 15:10

Цитата:

Сообщение от flexterful

опознднул....

пояснять надо, где каламбур

flexterful · 30.06.2011, 11:39

#13: ;// клавиша <Enter>

if Key = #13 then // и причём это - в обработке разделителя.

28.06.2011, 19:23	#25
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Ни чего вы не поняли, я в 19-том посте красным выделил почему #13 не обрабатывалась Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

29.06.2011, 15:05	#28
flexterful Пользователь Регистрация: 22.08.2008 Сообщений: 39	опознднул.... Чего бы тут сделать, дабы ничего неделать?

30.06.2011, 11:39	#30
flexterful Пользователь Регистрация: 22.08.2008 Сообщений: 39	#13: ;// клавиша <Enter> if Key = #13 then // и причём это - в обработке разделителя. Чего бы тут сделать, дабы ничего неделать?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
OnKeyPress VS Edit1 :)	Federal	Помощь студентам	6	29.07.2010 16:00
Не работатет onkeypress.	vedro-compota	Мультимедиа в Delphi	4	08.06.2010 20:58
OnKeyPress	aurora_87	Общие вопросы C/C++	3	15.01.2010 12:06
OnKeyPress из NumLock`а	Alex Cones	Общие вопросы Delphi	2	23.04.2009 20:08

28.06.2011, 19:15	#22
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	А чтобы хорошо читалось, используйте тэг CODE. Это кнопка с изображением решётки Да и потом для чего вы поменяли KeyPress на KeyDown? Какой смысл?