6 (1643)

78 Aplikacje w Delphi. Przykład]

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

ił MessageDlg('Czy zakończyć program?'. mtConfirmation.[mbYes.mbNo].0)=mrYes then Application.Terminate; end;

Przykład 5.4.

Wyświetl okienko MessageDlgPos z napisem: Okienko wewnątrz formularza, a na etykiecie wyświetl nazwę wybranego przycisku. Okienko powinno wyświetlać się zawsze wewnątrz formularza, niezależnie od jego położenia na ekranie.

Rozwiązanie

procedurę TForml.Button6Click(Sender: TObject):

var i:word;

begin

if WindowState=wsNormal then begin

i:=MessageDlgPos('Okienko wewnątrz formularza', mtCustom, mbYesNoCancel, 0. Left+20,Top+20): case i of

mrYes: Label 1. Capti on— 'Naciśnięto Yes': mrNo: Label1.Capti on: ='Naci śni ęto No’; mrCancel: Label1.Capti on:-'Naci śni ęto Cancel'; end end else

MessageDlgl'Okienko wewnątrz formularza', mtCustom, mbYesNoCancel, 0): end;

Przykład 5.5.

Wyświetl okno komunikatu o błędzie z przyciskami Abort i Ignore na środku formularza, niezależnie od jego położenia na ekranie — rysunek 5.3.

Rysunek 5.3.

Okno komunikatu o błędzie na środku formularza

Rozwiązanie

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

procedurę TForml.ButtonlClickCSender: TObject):

var par:TForm;

begin

//określenie szerokości i wysokości okna komunikatu

par:=CreateMessageDialog('Okno na środku formularza'.mtError,[mbAbort.mblgnore]);