Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Не ловится WM_SYSCOMMAND. Помогите.   Найти похожие ветки 

 
oleon   (2006-03-30 11:02) [0]

Создал формочку одну..
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) [1]

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

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



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

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
15-1143032910
Mazer
2006-03-22 16:08
2006.04.16
Где раздобыть Delphi Restore или что-то подобное?


15-1143474528
Empleado
2006-03-27 19:48
2006.04.16
С прискорбием ...


2-1143705165
Dyakon_Frost
2006-03-30 11:52
2006.04.16
Как перетащить форму, если нет рамки!


15-1143027612
Дмитрий_177
2006-03-22 14:40
2006.04.16
Шрифт электронных часов


15-1143092930
Der Nechk@ssoff
2006-03-23 08:48
2006.04.16
Привет Новосибирцам!