Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

обработка событий   Найти похожие ветки 

 
md   (2006-08-20 00:27) [0]

Если кнопка создаётся динамически, то как написать обработку события onClick ?


 
Anatoly Podgoretsky ©   (2006-08-20 00:29) [1]

Где создается кнопка, приведи пример с заголовком метода.


 
mahab ©   (2006-08-20 00:32) [2]

При создании кнопки опиши свою ф-ю обработки например
MyBtn:=Tbutton.Create(self)
MyBtn.OnClick:= имя своей функции
И бадяжь свое


 
md   (2006-08-20 01:01) [3]

to Anatoly Podgoretsky

Кнопка создаётся так:
MyBtn:=TButton.create(Form1);


 
md   (2006-08-20 01:04) [4]

to mahab

сделал как ты написал, но неполучается - я чего-то непонял. Надо ли мне обьявлять "имя своей функции" как Procedure ? Так не работает.


 
Германн ©   (2006-08-20 01:06) [5]

Тогда следуй совету [2].
Только процедуру "имя своей функции" нужно описать как метод объекта.


 
mahab ©   (2006-08-20 01:17) [6]

сори немного ошибся:
Images[i]:=Timage.Create(ScrollBox1);
with Images[i] do begin
parent:=ScrollBox1;
width:=...;
height:= ...;
left:=...;
top:=...
Images[i].OnClick:=imageclick;
end;
в разделе Type:
procedure Image1Click(Sender: TObject);
в имплементешне
procedure Tform1.ImageClick(Sender: TObject);
......
end;
из моей проги все работает


 
md   (2006-08-20 01:33) [7]

to mehab
Спасибо! всё работает :)


 
Anatoly Podgoretsky ©   (2006-08-20 11:57) [8]

md   (20.08.06 01:01) [3]
Повторяю вопрос, не надо огрызков!
Где создается кнопка, приведи пример с заголовком метода.



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

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
9-1134743587
Зм1й
2005-12-16 17:33
2006.09.10
Пересечения


5-1139238792
webpauk
2006-02-06 18:13
2006.09.10
Показать поля БД


15-1155806124
Rouse_
2006-08-17 13:15
2006.09.10
Каждому спамеру по бульдозеру :)


15-1155616202
tButton
2006-08-15 08:30
2006.09.10
удаффизмы


2-1155630742
GEM
2006-08-15 12:32
2006.09.10
Calculated field - не удается правильно вычислить