MessageBox jest to funkcja slużąca do wyświetlania okien dialogowych. W porownaniu do ShowMessage która wyśiwetla tylko przycisk OK, MessageBox potrafi wyświetlić różne przyciski, innym nagłówkiem i z ikonami. Jest to lepsza metosa niż tworzenie nowej formy. Oto przykład użycia MessageBox:
MessageBox(Handle,'Napis','Tytul',MB_OKCANCEL + MB_IconExclamation); Pierwszy parametr to uchwyt okna, drugi to napis w oknie, trzeci nagłówek okna. Ostatni parametr to tzw. Flagi-określa jakie mają zostać wyświetlone przyciski i ikona jaka ma zostać wyświetlona(oddzielone znakiem + )Możliwe parametry to:
| Parametr | Wyświetlane przyciski |
|---|
| MB_AbortRetry | Przerwij, Ponów próbę, Ignoruj | | MB_OK | OK | | MB_OKCancel | OK, Anuluj | | MB_RetryCancel | Ponów próbę, Anuluj | | MB_YesNo | Tak, Nie | | MB_YesNoCancel | Tak, Nie, Anuluj | | Parametr | Wyświetlana ikona |
|---|
| MB_IconExclamation | Ikona ze znakiem ! | | MB_IconInformation | Ikona ze literą i | | MB_IconQuestion | Ikona ze znakiem ? | | MB_IconStop | Ikona ze znakiem X |
Żeby wiedzieć jaki jest wybór użytkownika, należe przypisać zmiennej liczbowej to co zwróci MessageBox. Wartość tą można porównywać z: IdAbort-Przerwij IdCancel-Anuluj IdNo-Nie IdYes-Tak IdIgnore-Zignoruj IdOk-OK IdRetry-Ponów próbę
Przykład użycia MessageBox:
var i:integer; begin i:=MessageBox(Handle,'Czy chcesz zamknąć program?','',MB_YesNo + MB_IconQuestion); if i=IdYes then application.Terminate; end;
Gdy użytkownik wybierze "Tak" program zostanie zamknięty.
|