Обработка сообщения WM

← →
SeNtiMeL (2003-02-15 01:15) [0]

Мне нужно реализовать код, в котором будет обрабатываться сообщения минимизации и максимизации окна...
Я делаю так:
procedure ActionMessage(var Message: TMessage); message WM_SysCommand;
....
...
...

procedure TForm1.ActionMessage(var Message: TMessage);
begin
Case Message.WParam of
sc_close: Application.Terminate;
sc_minimize: ShowWindow(Form1.Handle,SW_HIDE);
sc_maximize: ShowWindow(Form1.Handle,SW_MAXIMIZE);
SC_RESTORE: ShowWindow(Form1.Handle,SW_RESTORE);
end;

end;

В результате у меня обработка происходит, но после этого форму нельзя перетащить и изменить ее размер мышкой....
Может что-то нужно сюда добавить ???? Или я что-то не так делаю.

← →
Sentinel (2003-02-15 01:30) [1]

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
inherited;
Case Message. CmdType of
sc_close : Application.Terminate;
sc_minimize : ShowWindow(Form1.Handle,SW_HIDE);
sc_maximize : ShowWindow(Form1.Handle,SW_MAXIMIZE);
SC_RESTORE : ShowWindow(Form1.Handle,SW_RESTORE);
end;
end;

← →
Sentinel (2003-02-15 01:32) [2]

Слышь, дружище, а логин у тебя весьма интересный, с моей точки зрения.

← →
gsu (2003-02-15 14:30) [3]

тезки (-:|~

← →
SeNtiMeL (2003-02-15 14:52) [4]

:) Почти.... Этот логин исторический..

← →
SeNtiMeL (2003-02-15 14:53) [5]

да, забыл сказать, пасибо :)

← →
интелектуал (2003-02-15 19:47) [6]

Не за чта

← →
интелектуал (2003-02-15 19:50) [7]

Такие вещи должен сам вкурить.
А кстати, кто из вас senti - mel - nel первый регистрировался? Может, один увидел чужой логин, и передразнил его?

Обработка сообщения WM_SYSCOMMAND !!!! Найти похожие ветки