Fenster schließen - Abfrage

[aerotech]

Hi, ich brauch mal Hilfe in Sachen Delphi, und zwar wie kann ich eine Abwahlfrage erstellen, wenn man eine bestimmte Form schließt!? z.b. "Möchten Sie das Formular wirklich schließen? - Ja - Nein -" o.ä.

Wäre nett wenn mir da jemand weiterhelfen könnte. ;)

[Luckie]

Kuck dir mal das Ereignis OnCloseQuery von deinem Formular an.

[MasterC]

Delphi-Quellcode:

Action := cafree; //Form wird geschlossen
Action := canone //Form nicht schließen

[Die Muhkuh]

Zitat:

Zitat von MasterC

Delphi-Quellcode:

Action := cafree; //Form wird geschlossen
Action := canone //Form nicht schließen

Das geht aber nur in OnClose!


Wenn du OnCloseQuery (siehe Luckie) nimmst dann kannst du:

Delphi-Quellcode:

CanClose := true; //Kann geschlossen werden
CanClose := false; //Schließen verhindern

nehmen

[mytar]

Hierzu gibt es in der OH ein Beispiel mit caFree und caNone.

Es müsste die TCloseAction sein.

Einfach mal nachschauen.

greetz
mytar :)

[mytar]

Ein Beispiel für das FormClose-Event:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 

  if MessageDlg('Beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Action := caFree
  else
    Action := caNone;

end;

greetz
mytar :)

[aerotech]

Sehr gut, danke, aber wenn ich einem Button diesen Befehlr + Abfrage erteile kommt ne Fehlermeldung, wie lös ich da das Problem?!

[toms]

Zitat:

Zitat von aerotech

kommt ne Fehlermeldung

Hi,

Was für eine Fehlermeldung kommt denn?

[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'

[malo]

Zitat:

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 ;)