7 (1495)

Rozdział 5. ♦ Okienka komunikatów 79

//ustalenie współrzędnej X lewego górnego wierzchołka okna par.Left:=Left+(Width-par.Width) div 2;

//ustalenie współrzędnej Y lewego górnego wierzchołka okna par.Top:=Top+(Height-par.Height)div 2;

//dodatkowo można zmienić kolor okna: par.Color:=clYellow: par.ShowModal;

//sprawdzenie, który przycisk został wybrany

if par.ModalResult-mrAbort then Label1.Caption:='Wybrano przycisk Abort' else if par.ModalResult=mrIgnore then Labell.Caption:='Wybrano przycisk Ignore’ else Label1.Caption:='Nie wybrano przycisku';

end:

W przykładzie wykorzystano funkcję CreateMessageDialog z modułu Dialogs, której ogólna postać jest następująca:

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: ‘•THsgDlgButtons): TForm;

Znaczenie parametrów wyjaśniono już wcześniej przy funkcji MessageDlgPos. Funkcja zwraca wartość obiektową typu TForm. Właściwości klasy TForm określają w tym przypadku parametry wyświetlanego okna dialogowego, np. TForm.Width — szerokość okna dialogowego.W utworzonym oknie dialogowym można wybrać przycisk Ignore lub Abort. Można również zamknąć okno jednym ze standardowych sposobów, np. Alt+F4 lub klikając przycisk H.