Главная страница
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.031 c
2-1155816088
fast2
2006-08-17 16:01
2006.09.10
Как сделать, чтоб при нажатии на Enter, не зависимо от того, где


15-1155824318
Дураг
2006-08-17 18:18
2006.09.10
А вы еще пользуетесь зомбоящиками?


3-1151753384
Muchacho
2006-07-01 15:29
2006.09.10
Установка Fast Report 3.x в Delphi 2006 .NET


2-1155725809
Mikka Hakkinnen
2006-08-16 14:56
2006.09.10
Нужно динамически создать/удалить несколько Series.


15-1155020125
QuickFinder
2006-08-08 10:55
2006.09.10
Популярность поисковиков