-
Как в Lazarus в классе повесить обработчик события?
В Delphi:
constructor TMyControl.Create(AOwner: TWinControl); begin inherited Create(AOwner); OnClick := MyClick;
-
OnClick := @MyClick
-
от режима компиляции зависит, я так понимаю. попробуй $MODE Delphi
-
> В Delphi: > constructor TMyControl.Create(AOwner: TWinControl); > begin > inherited Create(AOwner); > OnClick := MyClick;
Кстати, всегда не понимал: как в этом месте дельфи понимает, что надо OnClick присвоить значение (указателя на) функцию MyClick, а не вызвать MyClick() и её результат присвоить OnClick ?
-
> что надо OnClick присвоить значение (указателя на) функцию > MyClick, а не вызвать MyClick() и её результат присвоить > OnClick ?
Скобок нету, значит указатель.
|