Скачать: CL | DM;

WM_QUERYENDSESSION и WM_ENDSESSION   Найти похожие ветки 

← →
TED ©   (2002-01-16 06:43) [0]

Помогите плиз, как можно отловить WM_QUERYENDSESSION и WM_ENDSESSION???

---

← →
Ally ©   (2002-01-16 10:38) [1]

1-й способ для WM_ENDSESSION (для WM_QUERYENDSESSION он будет выглядеть аналогично)


unit main
intetrface
...
TForm1 = class(TForm)
...
pivate
procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
...
implementation
...
procedure TForm1.WMEndSession(var Msg: TMessage);
begin
...
{здесь твой код, например, ShowMessage("Ooops! I did it again!");:o))))}
...
inherited;
end;



2-й способ для WM_ENDSESSION (для WM_QUERYENDSESSION он будет выглядеть аналогично... :o)))


unit main
intetrface
...
TForm1 = class(TForm)
...
public
procedure MessageHandler(var Msg: TMsg; Handled: Boolean);
...
implementation
...
procedure TForm1.MessageHandler(var Msg: TMsg; Handled: Boolean);
begin
...
{здесь твой код, например, ShowMessage("Ooops! I did it again!");:o))))}
...
end;


...а теперь в файле проекта:

begin
Application.Initialize;
...
Application.OnMessage := Form1.MessageHandler;
Application.Run;
end.


---

← →
Ally ©   (2002-01-16 10:49) [2]

...Забыл!
Во 2-м способе:


implementation
...
procedure TForm1.MessageHandler(var Msg: TMsg; Handled: Boolean);
begin
case Msg.Msg of {не помню точное имя поля, но смысл его таков}
WM_ENDSESSION: ShowMessage("Ooops! I did it again!");
end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c