Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
ВнизНе ловится 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.04 c