Проблемы с WM

← →
Islander (2004-02-26 18:05) [0]

Здравствуйте!

Ловлю WM_SYSCOMMAND

Procedure WMSysCommand (var Msg:TMessage); message WM_SYSCOMMAND;

procedure TfrmLogin.WMSysCommand(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
Application.Minimize;
end;

Так вот, после всего этого форма не хочет принимать сообщения о действиях со своим заоголовком, т.е. не таскается и т.д.

Пробую

SendMessage (self.Handle, WM_SYSCOMMAND, Msg.WParam, Msg.LParam)

Не помогает.

Чего делать? Как заставить форму обработать все оставльные сообщения?

← →
Игорь Шевченко © (2004-02-26 18:06) [1]

> procedure TfrmLogin.WMSysCommand(var Msg: TMessage);
> begin
> if Msg.WParam = SC_MINIMIZE then
> Application.Minimize
else
inherited;> end;

← →
Islander (2004-02-26 18:55) [2]

Спасибо, даже не догадывался, что тут можно вызвать inherited :)

Проблемы с WM_SYSCOMMAND Найти похожие ветки