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.

Wyszukiwarka

Podobne podstrony:
5 (1791) Rozdział 5. ♦ Okienka komunikatów    77 Tabela 5.5. Nazwy stałych typu TMs
5 (1790) Rozdział 6. ♦ Okienka dialogowe z karty Dialogs 85 //zapisanie elementów listy do pliku pro
3 (2311) Rozdział 6. ♦ Okienka dialogowe z karty Dialogs 83 Tabela 6.2. Komponenty umożliwiające k
3 (2312) ■ozdział 5. ♦ Okienka komunikatów 75 Rysunek 5.1. Przykład okienek MtasageBox a)B5&E53B
7 (1452) Rozdział 8. ♦ Prosty edytor — komponent TMemo 105Wyświetlanie współrzędnych kursora w polu
77004 skanuj0066 (44) Rozdział 3. ♦ Instrukcje sterujące i funkcje 79 $i = 0; for(: $i < 10;){ ec
079 pcx Rozdział 4. ♦ Systemy cyfrowej transmisji bezprzewodowej 79 kodera ma prędkość 32 kb/s. co z

więcej podobnych podstron