Single Post - Delphi. Как присвоить обработчик события в runtime?

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Delphi. Как присвоить обработчик события в runtime?

Author

Message

Dec

Posted: Tue Oct 02, 2007 11:35 Post subject:

Code:

procedure _OnTimer_(Sender: TObject);
begin
MessageBeep(0);
end;

var M: TMethod;
begin
with TTimer.Create(Self) do begin
M.Code := @_OnTimer_;
OnTimer := TNotifyEvent(M);
end;
end;