Fenster schließen - Abfrage

[Chegga]

Hi,

so geht's auch:

Delphi-Quellcode:

procedure TForm1.Label9Click(Sender: TObject);
var Knopf: Integer;
begin
  Knopf := Application.MessageBox('Serialarchiv wirklich schließen?', '', 1+16);
  if Knopf <> IDCancel then Close;
end;

MfG Marc

P.S.: Es müsste ein Warnkreuz in der Abfrage erscheinen.
Man kann auch Fragezeichen, Ausrufezeichen oder Infozeichen machen.