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.

[malo]

Wenn du das so haben willst, dass man aufs label klicken kann und dann kommt die Abfrage, ob geschlossen werden soll, oder nicht, dann mach es doch so:

Delphi-Quellcode:

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

Wobei close nur das jeweilige Formular schließt, es sei denn, es ist das MainForm. Wenn das MainForm geschlossen wird, ist alles geschlossen.

Wenn du immer alles schließen willst, schlage ich dir statt close Application.Terminate vor

[Muetze1]

Moin!

Dann mach lieber auf dem Label9Click einfach nur ein close und nix weiter und die Abfrage wie vorhin gepostet im OnCloseQuery. Die Abfrage kommt dann, wenn man auf das Label klickt genauso als wenn man direkt die Form über [X] schliesst.

MfG
Muetze1

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

[alcaeus]

Hi Chegga,

saemtliche Konstanten haben einen Namen. Es gibt also keinen Grund, 1+16 zu schreiben. Ich weiss gar nicht was das sein soll, und er sicher genausowenig

Greetz
alcaeus