Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1143028357
TStas
2006-03-22 14:52
2006.04.16
Чего почитать, чтобы понять, как винды работают?


2-1142940985
Ksenom
2006-03-21 14:36
2006.04.16
Не так всё прсто TIdPOP3


11-1124430638
Gothic 1
2005-08-19 09:50
2006.04.16
Использование компонентов из VCL


3-1140528041
TTT_111
2006-02-21 16:20
2006.04.16
Неизвестное программное исключение


15-1143223111
Kerk
2006-03-24 20:58
2006.04.16
Моменты в жизни, о которых вы никогда не забудете...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский