Как присвоить OnClick свою процедуру?

← →
ShotGuN © (2005-09-18 13:19) [0]

Я создал свою процедурку On_Click(Sender: TObject);

написал Button1.OnClick := On_Click;

Выдается ошибка...

Знаю, что можно сделать... но не могу найти как... кто-нибудь может помочь?

← →
MBo © (2005-09-18 13:24) [1]

Обработчик события должен иметь тип Procedure(...) of object
т.е. быть методом какого-то класса, а не простой процедурой

← →
ShotGuN © (2005-09-18 13:30) [2]

Синтаксис поподробней можно описать? плз...

← →
ShotGuN © (2005-09-18 13:32) [3]

OnClick: TNotifyEvent

← →
MBo © (2005-09-18 13:44) [4]

Ну посмотри, что делается, когда ты кладешь на форму кнопку и делаешь обработчик клика: Появляется метод формы Button1Click, а не регулярная процедура.
Стоит зайти на www.delphikingdom.ru и в разделе Hello, World прочитать статью "Жизнь и смерть в режиме RunTime"

← →
Anatoly Podgoretsky © (2005-09-18 13:45) [5]

Синтаксис правильный.

← →
Antonn © (2005-09-18 14:20) [6]

ShotGuN © (18.09.05 13:19)
Я создал свою процедурку On_Click(Sender: TObject);

написал Button1.OnClick := On_Click;

может нужно не просто процедурку?
procedure TForm1.On_Click(Sender: TObject);
begin
//
end;
Button1.OnClick := On_Click;

> Выдается ошибка...

какая?

← →
Курсант (2005-09-18 14:39) [7]

Надо так:

Button1.OnClick := On_Click(Sender);

>Курсант (18.09.05 14:39) [7]
не надо так.

Курсант (18.09.05 14:39) [7]
On_Click не является функцией.

Чтобы такое присвоение сработало, надо чтобы твоя процедура быля членом класса

TForm1 = class(TForm) Button1: TButton; private procedure On_Click(Sender: TObject); {...................................................................................................... где-то дальше} Button1.OnClick = On_Click;

Как присвоить OnClick свою процедуру? Найти похожие ветки