| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не ловится WM_SYSCOMMAND. Помогите. [D7]

oleon ©   (2006-03-30 11:02:00) 

Создал формочку одну..
procedure TForm1.AppMessage(var Msg: TMsg; var handled: Boolean);
begin
 IF Msg.Message = WM_SYSCOMMAND THEN
 Begin
   ShowMessage('Системное сообшение');
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AppendMenu(GetSystemMenu(Handle, False), MF_STRING, SC_UDF, 'Всегда на&верху');
 AppendMenu(GetSystemMenu(Application.Handle, False), MF_STRING, SC_UDF, 'Всегда на&верху');
 Application.OnMessage := AppMessage;
end;

Почему когда жму развернуть свернуть форму SHowMessage не срабатывает? спасибо.

---

begin...end   (2006-03-30 11:14:00) [1]

> Почему когда жму развернуть свернуть форму SHowMessage не
> срабатывает?

Потому что WM_SYSCOMMAND посылается синхронно (через SendMessage), а в TApplication.OnMessage попадают только асинхронные сообщения.

---

Наверх