Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

MessageDlg   Найти похожие ветки 

 
Alibaba   (2002-09-23 11:05) [0]

Всем привет!
Можно ли что-бы MessageDlg появлялось ПОВЕРХ всех окон?


 
Рыжик   (2002-09-23 11:35) [1]

var f:TForm;
begin
f:=CreateMessageDialog("Msg",mtError,[mbOK]);
f.FormStyle:=fsStayOnTop;
f.ShowModal;
f.Free;


 
Alibaba   (2002-09-23 11:49) [2]

Спасибо.
Счас попробую. :)


 
Yuri-7   (2002-09-23 12:24) [3]

Попробуй использовать WINAPI-шный MessageBox с 1-м параметром GetActiveWindow -
MessageBox(GetActiveWindow,"Сообщение","Заголовок", MB_OK)


 
Alibaba   (2002-09-23 12:39) [4]

> Yuri-7
GetActiveWindow не работает однако...


 
Yuri-7   (2002-09-23 12:44) [5]

Что значит не работает? Как это проявляется?


 
Рыжик   (2002-09-23 12:46) [6]


> Yuri-7 (23.09.02 12:44)

По всей видимости, сообщение только покажется на верху, но при переходе между окнами будет закрываться другими окнами


 
Alibaba   (2002-09-23 12:55) [7]

> Рыжик ©
Не хочу показаться надоедливым...

Ваш вариант работает, но.
Можно ли определить : нажал пользователь на mbOK или закрыл форму (в правом верхнем углу крестик)?


 
Yuri-7   (2002-09-23 12:56) [8]

> Рыжик © (23.09.02 12:46)
Да, при переходе между различными приложениями оно будет скрываться, но при возврате в данное приложение всегда будет торчать модальным. Если нужно, чтобы оно всегда торчало сверху (и мешало работать в других приложениях), то действительно надо делать свою StayonTop форму, как ты и предлагал.


 
Alibaba   (2002-09-23 13:00) [9]

> Yuri-7
Работает программа, главное окно закрыто другими окнами других приложений. По определенному событию я хочу показать сообщение пользователю. Если окно моей программы закрыто другими окнами то сообщение появляется под другими окнами. И пользователь его увидит только тогда, когда переключится на мою программу.


 
Рыжик   (2002-09-23 13:02) [10]

Надо проверить, что возвращает ShowModal
Например, if f.ShowModal=mrOK then {пользователь нажал OK} (см. TModalResult - возможные значения)


 
Alibaba   (2002-09-23 13:03) [11]

Народ, так как мне узнать что-там нажал пользователь, если я реализовываю вариант А(Рыжик © (23.09.02 11:35))


 
Рыжик   (2002-09-23 13:06) [12]


> Yuri-7 (23.09.02 12:24)

The GetActiveWindow function retrieves the window handle to the active window associated with the thread that calls the function. По-этому и не работает.


 
Alibaba   (2002-09-23 13:06) [13]

> Рыжик ©
Да, действительно, что-то торможу с утра. :(
Спасибо.


 
Separator   (2002-09-23 13:12) [14]

> Alibaba
Это у тебя во сколько утро???


 
Alibaba   (2002-09-23 13:18) [15]

Ну, дык.... Я это....
Но модератор все равно может повырезать наши постингы за непотемные разговоры.
Так что ты аккуратней. :)


 
Рыжик   (2002-09-23 13:35) [16]

Кстати, у MessageBox есть много интересных флагов: MB_SYSTEMMODAL, MB_TASKMODAL,MB_SETFOREGROUND,MB_TOPMOST (см. Help) :)



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

Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.006 c
6-8079
aglar
2002-07-31 10:49
2002.10.03
Размер скаченной с интернет информации


7-8179
Юра
2002-07-04 23:34
2002.10.03
SoundCard


3-7821
КСА
2002-09-12 11:30
2002.10.03
Index is out of date


3-7775
ghost_by
2002-09-13 08:20
2002.10.03
Обновление Blob полей - глючит....


6-8104
kostik78ua
2002-07-31 14:53
2002.10.03
NMStrm+клиент/сервер





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