Назначаем процедуру

← →
Alibaba © (2004-03-21 06:39) [0]

1. Описываю процедуру
procedure MyClick(Sender: TObject) begin ... end
2. В Run-Time создаю компонент TButton.
3. Хочу что-бы при клике на TButton выполнялась моя процедура
TButton.OnClick:=MyClick;
Появляется сообщение об ошибке:
Incompatible types: "method pointer and regular procedure"

Если я описываю процедуру в главной форме:
type TfrmMain = class(TForm) ... procedure MyClick(Sender: TObject); ... end;

Тогда все работает.
Но есть необходимость описать процедуру НЕ в главной форме.
Как это сделать?

← →
uw © (2004-03-21 07:52) [1]

property OnClick: TNotifyEvent;
type TNotifyEvent = procedure (Sender: TObject) of object;

Слова of object означают, что мы должны писать не простую процедуру, а метод какого-нибудь класса. Можешь написать так:

type TAnuClass = class procedure MyClick(Sender: TObject); end; procedure TAnuClass.MyClick(Sender: TObject); begin ... end;

Назначаем процедуру Найти похожие ветки