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

Вниз

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:......
.....




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

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

Наверх




Память: 0.49 MB
Время: 0.022 c
1-99171
Rouse_
2002-12-15 23:32
2002.12.30
Перехват WM_LBUTTONDOWN в потомке THintWindow


6-99228
xnick
2002-11-04 09:52
2002.12.30
Pipe


1-99190
harismatik
2002-12-18 19:20
2002.12.30
Путь к ветке дерева


14-99262
Jackson
2002-12-11 23:25
2002.12.30
3d MAX


1-99092
RUS1
2002-12-19 15:46
2002.12.30
Хочу передавать данные по сети - чем лучше воспользоваться?