Скачать: CL | DM;

Events у созданного программно компонента   Найти похожие ветки 

← →
Erl   (2005-10-03 21:45) [0]

Уважаемые мастера.
Скажите, как решить вопрос//
Создаем 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) [1]

http://delphikingdom.com/asp/viewitem.asp?catalogid=342

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c