Сообщения в Delphi

← →
AlexeyMir (2002-10-24 14:31) [0]

Приведите пожалуйста пример работы с сообщениями (отправка, прием). Спасибо

← →
Skier © (2002-10-24 14:44) [1]

>AlexeyMir

const
UM_MYMESSAGE = WM_USER + 1;

отправка
- SendMessage(...)
- PostMessage(...)
и ащё есть TControl.Perform(...)

приём

TYourClass = class(...)
private
procedure UMMyMessage(var AMsg : TMessage); message
UM_MYMESSAGE

//......................

procedure TYourClass.UMMyMessage(var AMsg : TMessage);
begin
//.....................
end;

Сообщения в Delphi Найти похожие ветки