Wie beendet man ein Programm richtig???

[Flo]

Hi,
ich mach es eigentlich immer mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Soll das Programm wirklich beendet werden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    Close;
  end;
end;

Man kann da noch ne Position reinbauen. Dann siehts so aus:

Delphi-Quellcode:

var
   mtS: TMsgDlgType;
begin
if MessageDlgps('Soll das Programm wirklich beendet werden?',
    mtS, [mbYes, mbNo], (*position angeben*) ) = mrYes then
  begin
    Close;
  end;

Kannste auch mit OnCloseQuery machen. Ist schöner, weil wenn man auf das X klickt, kommt ebenfalls die Abfrage.