Həyat

Delphi ilə TopMost Sistemi Modal Mesaj qutusunu necə göstərin

Delphi ilə TopMost Sistemi Modal Mesaj qutusunu necə göstərin

Masaüstü (Windows) tətbiqetmələri ilə, a mesaj (informasiya qutusu) qutusu tətbiqi istifadəçisinə bəzi hərəkətlərin görülməsini, hansısa əməliyyatın bitdiyini və ya ümumiyyətlə istifadəçilərin diqqətini cəlb etmək üçün xəbərdar etmək üçün istifadə olunur.

Delphi-də istifadəçiyə bir mesaj göstərməyin bir neçə yolu var. Siz ya ShowMessage və ya InputBox kimi RTL-də təqdim olunan gündəlik mesajları göstərən istənilən mesajdan istifadə edə bilərsiniz; ya da öz dialoq qutunuzu yarada bilərsiniz (yenidən istifadə etmək üçün): CreateMessageDialog.

Yuxarıda göstərilən bütün informasiya qutularının ümumi bir problemi onların olmasıdır istifadəçiyə göstərilmək üçün tətbiqin aktiv olmasını tələb edir. "Aktiv", tətbiqinizdə "giriş fokusu" olduğuna aiddir.

Həqiqətən istifadəçinin diqqətini çəkmək və başqa bir şey etmələrini dayandırmaq istəyirsinizsə, bacarmalısınız Tətbiqiniz aktiv deyilsə də sistem modal ən yüksək mesaj qutusunu göstərin.

Sistem-Modal ən çox mesaj qutusu

Bu mürəkkəb görünsə də, əslində belə deyil.

Delphi, Windows API zənglərinin əksəriyyətinə asanlıqla daxil ola bildiyindən, "MessageBox" Windows API funksiyasını yerinə yetirmək hiylə işlədəcəkdir.

"Windows.pas" bölməsində müəyyən edilmişdir - hər Delphi formasının istifadə bəndində standart olaraq daxil olan MessageBox funksiyası mesaj qutusu yaradır, göstərir və işləyir. Mesaj qutusu əvvəlcədən təyin edilmiş nişanlar və düymələrin hər hansı bir birləşməsi ilə birlikdə tətbiqetmədə müəyyən edilmiş bir mesaj və başlıqdan ibarətdir.

Budur, MessageBox elan olunur:

funksiyası MessageBox (
hWnd: HWND;
lpText,
lpCaption: PAnsiChar;
uType: Kardinal): tam;

Birinci parametr, hwnd, yaradılacaq mesaj qutusunun sahibi pəncərəsinin sapıdır. Bir informasiya qutusu olanda bir mesaj qutusu yaratsanız, dialoq qutusuna olduğu kimi bir sap istifadə edin hWnd parametr.

The lpMətnlpCaption başlıq və mesaj qutusunda görünən mesaj mətnini göstərin.

Sonuncu uType parametr və ən maraqlıdır. Bu parametr informasiya qutusunun məzmununu və davranışını göstərir. Bu parametr müxtəlif bayraqların birləşməsi ola bilər.

Misal: Sistem tarixi / vaxtı dəyişdikdə sistem Modal xəbərdarlıq qutusu

Bir sistem modal topmost mesaj qutusu yaratmaq nümunəsinə nəzər salaq. Sistemin tarixi / vaxtı dəyişdikdə, məsələn, "Tarix və Zaman Xüsusiyyətləri" İdarəetmə Paneli tətbiqetməsini istifadə edərkən, bütün çalışan tətbiqlərə göndərilən Windows mesajını idarə edəcəksiniz.

MessageBox funksiyası belə deyiləcək:

Windows.MessageBox (

sap,

'Bu sistem modal mesajdır' # 13 # 10'fəal olmayan tətbiqdən ',

'Aktiv olmayan tətbiqdən bir mesaj!',

MB_SYSTEMMODAL və ya MB_SETFOREGROUND və ya MB_TOPMOST və ya MB_ICONHAND);

Ən vacib parça son parametrdir. "MB_SYSTEMMODAL və ya MB_SETFOREGROUND və ya MB_TOPMOST" mesaj qutusunun sistem səviyyəsində olmasını, ən üst hissəsini və ön plana çıxmasını təmin edir.

  • MB_SYSTEMMODAL bayraq istifadəçinin hWnd parametri ilə təyin olunan pəncərədə işi davam etdirmədən əvvəl mesaj qutusuna cavab verməsini təmin edir.
  • MB_TOPMOST bayraq mesaj qutusunun, ən yüksək olmayan bütün pəncərələrin üstünə qoyulmalı olduğunu və pəncərənin deaktiv olmasına baxmayaraq onların üstündə qalmalı olduğunu göstərir.
  • MB_SETFOREGROUND bayraq mesaj qutusunun ön plana çıxmasını təmin edir.

Budur tam nümunə kodu ("vahid" bölməsində təyin olunan "Form1" adlı TForm):

vahid Bölmə1;

interfeysi


istifadə edir

Windows, Mesajlar, SysUtils, Variantlar, Dərslər,

Qrafika, Nəzarətlər, Formalar, Dialoqlar, ExtCtrls;

növü

TForm1 = sinif(TForm)
  

özəl

    proseduru WMTimeChange (var Ms: TMessage); mesaj WM_TIMECHANGE;
  

ictimai

    {Xalq elanları}

  son;

var

Form1: TForm1;

həyata keçirilməsi{$ R * .dfm}

proseduru TForm1.WMTimeChange (var Ms: TMessage);

başlamaq

Windows.MessageBox (

sap,

'Bu sistem modal mesajdır' # 13 # 10'fəal olmayan tətbiqdən ',

'Aktiv olmayan tətbiqdən bir mesaj!',

MB_SYSTEMMODAL və ya MB_SETFOREGROUND və ya MB_TOPMOST və ya MB_ICONHAND);

son;

son.

Bu sadə tətbiqdən istifadə etməyə çalışın. Tətbiqin minimuma endirildiyini və ya heç olmasa başqa bir tətbiqin aktiv olduğundan əmin olun. "Tarix və Zaman xüsusiyyətləri" İdarəetmə Paneli tətbiqetməsini işə salın və sistem vaxtını dəyişdirin. "Ok" düyməsini vurduğunuz anda (tətbiqetmədə) aktiv olmayan tətbiqinizdən sistem modal ən yüksək mesaj qutusu görünəcəkdir.