Найдено 2 результата
- 09.01.2015 00:08:50
- Форум: Lazarus
- Тема: Объединие процедур OnKeyPress
- Ответы: 3
- Просмотры: 3128
Re: Объединие процедур OnKeyPress
Огромнейшее спасибо!!!
- 08.01.2015 23:11:26
- Форум: Lazarus
- Тема: Объединие процедур OnKeyPress
- Ответы: 3
- Просмотры: 3128
Объединие процедур OnKeyPress
Здравствуйте. Имеются очень много Эдитов. В процедуре OnKeyPress каждого идет такое:
case key of
'0'..'9',#8,',':;
else
key:=#0;
end;
if key=','
then
begin
if (Length(Wire_lenght_Edit.Text)<=0) or (Pos(',',Wire_lenght_Edit.Text)<>0)
then Key:=#0;
end ...
case key of
'0'..'9',#8,',':;
else
key:=#0;
end;
if key=','
then
begin
if (Length(Wire_lenght_Edit.Text)<=0) or (Pos(',',Wire_lenght_Edit.Text)<>0)
then Key:=#0;
end ...