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

Вниз

Не сворачивается окно...   Найти похожие ветки 

 
VDen   (2003-07-02 20:14) [0]

Есть DLL, которая ставит хук на клавиатуру. При нажатии определенной клавиши, допустим "а", DLL отправляет BROADCAST сообщение. Мое окно главного приложения в свернутом виде ловит это сообщение, в Application.onMessage следующим образом

procedure TNoterForm.AppMess(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_MyRestMess) then begin
ShowWindow(Handle, SW_RESTORE);
UpdateWindow(Handle);
ShowWindow(RichEdit1.Handle, SW_RESTORE); //Как выяснилось, без этого
UpdateWindow(RichEdit1.Handle); //RichEdit отказывается корректно перерисовываться
Handled:=true;
end;
end;

НО. После того как это сообщение развернет окно 2 раза, оно перестает сворачиваться! То есть если окно было развернуто и пришло это сообщение, ничего не случается, а если свернуто, то...
Подскажите, плз, где лыжи смазать.

ЗЫ И еще, совсем полтергейст, но все-таки... После восстановления окна отказывается работать ActionManager - перестает реагировать на изменение содержимого буфера обмена, например...


 
Юрий Зотов   (2003-07-02 20:40) [1]

Явно что-то перемудрено (возможно, не только в этом месте). Просто Application.Restore не помогает? Или WindowState := wsNormal. Или и то, и другое вместе.


 
VDen   (2003-07-03 11:00) [2]

Вы будете смеяться, но не помогает...

И вообще, как-то все некрасиво выходит... Ну да ладно, начну заново и по-другому.. ;)



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

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

Наверх




Память: 0.44 MB
Время: 0.008 c
1-55578
NIVA
2003-07-02 09:16
2003.07.17
Таблица в текстовом файле


1-55634
Gabon
2003-07-03 23:52
2003.07.17
Как отловить нажатие определенной клавиши...


4-55887
DmitryDDR
2003-05-15 07:40
2003.07.17
CreateProcessWithLogonW


14-55737
Johnmen
2003-07-02 13:06
2003.07.17
Ясность ? Ясность... Ясность !


14-55838
Skier
2003-06-30 09:05
2003.07.17
Иерархия классов Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский