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

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

← →
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 :)

---

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

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



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