Советы по Delphi

         

Диалоги, модальные для всей системы


Ознакомьтесь с API-функцией SetSysModalWindow
Ознакомьтесь с API-функцией BringWindowToTop

Если вам необходим простой диалог с небольшим количеством текста, дополнительной иконкой и некоторыми кнопками, используйте MessageBox из WinProcs с MB_SYSTEMMODAL в параметре TextType.

Используйте функцию Windows API SetSysModalWindow(). Код ниже демонстрирует технологию работы с этой функцией. В любой момент времени может быть возможен только один модально-системны диалог, чей дескриптор возвращается функцией SetSysModalWindow(). Вам необходимо запомнить возвращаемую функцией величину для того, чтобы завершить показ диалога таким образом. Вот как примерно это должно выглядеть:

    procedure TForm1.Button1Click(Sender: TObject);
var
x : word ; begin
x := SetSysModalWindow(AboutBox.handle) ; AboutBox.showmodal ; SetSysModalWindow(x) ; end;

[001740]



Содержание раздела