Events у созданного программно компонента [D6]
Erl © (2005-10-03 21:45:00)
Уважаемые мастера.
Скажите, как решить вопрос//
Создаем Edit
var
ed:TEdit;
begin
Ed:=TEdit.Create(Application);
ed.Parent:=form1;
ed.Top:=50;
ed.Left:=20;
***on Destroy формы
Ed.Free;
Как у созданного Ed прицепить OnKeyPress,чтобы вставить
код
if Key = ',' then
Key := #0;
if Key = '.' then
Key := #0;
if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13])
or ((Key = DecimalSeparator) and (POS (DecimalSeparator,
Edit.Text) > 0))
or ((Key = '-') and (POS ('-', Edit.Text) > 0))
or ((Key = '-') and (Edit.SelStart <> 0))
then
begin
Key := #0;
MessageBox(0,'Введите число, а не запрещенный
символ!','Сообщение',mb_ok+mb_iconWarning);
end;
Если можно помогите с примером.
Заранее спасибо.
begin...end (2005-10-03 21:48:00) [1]
http://delphikingdom.com/asp/viewitem.asp?catalogid=342
Наверх 
ЧАТ |
Орешник |
|
