Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c