3 (2312)

■ozdział 5. ♦ Okienka komunikatów 75

Rysunek 5.1.

Przykład okienek MtasageBox

a)

B5&E53BK’. *J

Czy zakończyć program?

ZlLŻSl Araiul }

Przykład 5.1.

Wyświetl okienko dialogowe jak na rysunku 5.1 a.

Rozwiązanie

W procedurze obsługi kliknięcia przycisku wpisz instrukcję, tak jak w procedurze poniżej:

procedurę TForml.ButtonlClick(Sender: TObject); begin

if Application.HessageBox('Czy zakończyć program?'Tytuł okna'.

MBJDkCancel)=IdOK then Application.Terminate;

end;

Przykład 5.2.

Wyświetl okienko dialogowe, tak jak na rysunku 5.1 b.

Rozwiązanie

Na formularzu umieść przycisk i pole TMemo. Do pola wpisz kilka cyfr, korzystając z okienka Inspektora Obiektów (właściwość Li nes). W procedurze obsługi kliknięcia przycisku wpisz instrukcje, tak jak w procedurze poniżej:

procedurę TForml.Button5Click(Sender: TObject): begin

if FileExistsCLiczby.txt') then begin

if Application.MessageBox('Plik o takiej nazwie już istnieje'+#13+

'Czy powtórzyć zapis?¹.'Problem z zapisem',MB_YesNo)=IdYes then Memol.Lines.SaveToFile('Liczby.Txt'): end ełse

Memol.Lines.SaveToFile('Liczby.Txt'): end;

Wyświetlanie komunikatów za pomocą funkcji ShowMessage, MessageDlg, MessageDIgPos

Najprostszym oknem służącym do pokazywania komunikatów jest okno wyświetlane za pomocą procedury ShowMessage. Zawiera ono jeden przycisk OK. Na pasku nazwy wyświetla się nazwa programu, domyślnie Project 1.