TButton

← →
Yakudza (2002-12-19 16:03) [0]

Как обработать событие onСlick копки которая создаеться в Run-Time

← →
Song (2002-12-19 16:09) [1]

Button.onClick:=процедура;

← →
Yakudza (2002-12-19 17:02) [2]

Incompatible types: "TNoifyEvent" and "procedure"

← →
mrcat (2002-12-19 17:04) [3]

процедура должна быть типа OnClick

← →
Yakudza (2002-12-19 17:10) [4]

Мне нужно на onClick повесить :

procedure ExecuteProgramm (path : String);

← →
mrcat (2002-12-19 17:13) [5]

делаешь процедуру OnClick и в нее пишешь ExecuteProgramm (path : String);

← →
Skier (2002-12-19 17:14) [6]

Процедура должна быть методом класса

← →
mrcat (2002-12-19 17:17) [7]

Skier © (19.12.02 17:14)
type TNotifyEvent = procedure (Sender: TObject) ofobject;

← →
Skier (2002-12-19 17:18) [8]

>Yakudza
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625051&n=19
>mrcat
И что ?

← →
Yakudza (2002-12-19 18:04) [9]

И для 25 кнопок будет одна и таже процедура ?
А как передавать параметры. Например разные кнопки запускают разные программы, нужно onClick передавать разный путь.

← →
Val (2002-12-19 19:25) [10]

>Yakudza © (19.12.02 18:04)
И для 25 кнопок будет одна и таже процедура ?
это уж как обработчики вы для своих кнопок определите.Путь же можно объявить как поле класса и передавать его в процедуру вашу, например, если один обработчик на все кнопки, то в нем и определять этот путь исходя из имени контрола(в обработчик ведь Sender передается).

← →
PVOzerski (2002-12-19 20:14) [11]

>И для 25 кнопок будет одна и таже процедура ?
>А как передавать параметры. Например разные кнопки запускают >разные программы, нужно onClick передавать разный путь.

А Вы не задумывались о смысле параметра Sender? А ведь он-то как раз и представляет, в данном случае, нажатый экземпляр кнопки. А у него, BTW, есть свойство Tag, очень полезное.
Я уж не говорю о том, что никто не заставляет Вас инкапсулировать метод onClick в классе-наследнике tButton, он моет быть методом чего угодно, той же формы. И присваивайте Вы спокойно значение свойства onClick индивидуально.

Иллюстрации:

type
TForm1 = class(TForm)

...
private
CustomButton:tButton;
procedure CustomButtonClick(Sender:tObject);

....
CustomButton:=tButton.Create(Form1);
CustomButton.Tag:={например}10;
CustomButton.OnClick:=Form1.CustomButtonClick;

....
procedure tForm1.CustomButtonClick(Sender:tObject);//универсальный вариант
begin
if Sender is tButton then
case tButton(Sender).Tag of
1:......
2:......
.....

TButton Найти похожие ветки