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

Вниз

Добавление обработчика события в кнопку Run-Time   Найти похожие ветки 

 
Strate ©   (2006-04-27 22:33) [0]

Привет всем.

Подскажите пжалста, как должна выглядеть процедура, чтобы её можно было подставить в OnClick-свойство кнопки, которую я создаю в Run-Time режиме?

Пишу вот так:

procedure Clicker (sender : TObject);
begin

end;

....

Button.OnClick := Clicker;


Выдаёт ошибку :(


 
Юрий Зотов ©   (2006-04-27 23:46) [1]

Это должен быть метод класса, а не просто процедура.

type
 TForm1 = class(TForm)
 ...
 private
   procedure Clicker (Sender : TObject);
 ...
 end;

procedure TForm1.Clicker (Sender : TObject);
begin
 ...
end;


 
Strate ©   (2006-04-28 00:29) [2]

Юрий Зотов ©   (27.04.06 23:46) [1]

Спасибо!
Тупой вопрос, не правда-ли? :о)


 
Юрий Зотов ©   (2006-04-28 08:13) [3]

> Strate ©   (28.04.06 00:29) [2]

Нормальный вопрос. Тупой вопрос - это такой вопрос, на который невозможно ответить. Например, потому, что его просто невозможно понять (часто из-за того, что автор, желая показать свою якобы крутизну, начинает пользоваться терминологией, в которой он на самом деле не разбирается, а в итоге в его вопросе получается та же самая каша, что и у него в голове).

Или вопрос типа "У меня программа выдает ошибку, в чем дело" (и при этом ни строчки кода). Или вопрос другого типа: "Как написать программу" (как? сесть, да и написать - а как еще их пишут?).

Тут такого добра много было (см. "Орешник"). А у Вас - совершенно нормальный вопрос.



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

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

Наверх




Память: 0.47 MB
Время: 0.044 c
2-1146125189
XMAN
2006-04-27 12:06
2006.05.21
Размер mdb пугает


2-1146510429
Flint-1983
2006-05-01 23:07
2006.05.21
блокировка работы с файлом


2-1146628337
Ezorcist
2006-05-03 07:52
2006.05.21
Подключен ли ПК к нету?


2-1146743284
Andrey235
2006-05-04 15:48
2006.05.21
проблема с динамичным массивом


8-1131503385
Irinka
2005-11-09 05:29
2006.05.21
Работа с PNG