Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Назначаем процедуру Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.06 c
