Fenster schließen - Abfrage

[aerotech]

Zitat von malo:

Zitat von aerotech:

Delphi-Quellcode:

procedure TForm1.Label9Click(Sender: TObject);
begin
if MessageDlg('Serialarchiv wirklich schiließen?',mtwarning,[mbyes, mbno],0) = mryes then
Action := caFree
else
Action := caNone;
end;

[Error] Unit1.pas(249): Incompatible types: 'TBasicAction' and 'TCloseAction'
[Error] Unit1.pas(250): Incompatible types: 'TBasicAction' and 'TCloseAction'
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'

Der Code muss auch ins OnClose nicht ins Label-OnClick

Ja klar, aber ich möchte "auch" meinem Label mit der Caption -> Programm schließen diese Abfrage erteilen.....also n' Closelabel inkl Abfrage ob man wirklich schließen will.