Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.57 MB
Время: 0.039 c
3-98972
Kirill S.
2002-12-10 09:33
2002.12.30
сортировка DataSet


1-99113
Vanya
2002-12-17 15:41
2002.12.30
BorderIcons


1-99173
Dinara
2002-12-17 18:39
2002.12.30
Как поменять шрифт отображения у TMainMenu?


14-99348
Malder
2002-12-11 00:02
2002.12.30
Цена на AMD 366


14-99354
axe
2002-12-11 10:42
2002.12.30
Как уменьшить размер exe-файла?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский