Главная страница
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.047 c
15-1146008584
Серджинйо
2006-04-26 03:43
2006.05.21
JEDI Не устанавливается...


3-1143730751
Alex_12345
2006-03-30 18:59
2006.05.21
Apollo: не работает....


2-1146557123
49 Cent
2006-05-02 12:05
2006.05.21
Можно ли изменить угол для Timage?


2-1146410252
Kano
2006-04-30 19:17
2006.05.21
Ошибка при выполнении Insert


2-1146564240
wirg
2006-05-02 14:04
2006.05.21
Yt vjue lj,fdbnm rfdsxre