probleme mit einer messagebox..

[turboPASCAL]

Also

Zitat:

diese scheiß boxen funktionieren

schon, der Code der noch drum herum ist kann noch Fehler beinhalten. Dort würde ich mal nachschauen.

[agm65]

es gibt keinen code drumherum

was soll denn beim dem else rein ? nichts oder ? also kann ichs ja auch weglassen !

[DennisHB]

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
     CanClose := ( MessageDlg('Wollen sie wirklich beenden ?', mtConfirmation,[mbYes,mbNo],0) = mrYes );
end;

So einfach is des :)

Wichtig im OnCloseQuery der Form nicht im onClose,
der Grund ist einfach OnCloseQuery wird vor dem eigentlichen Schliessen der Form aufgerufen,
onClose im Prinzip nach dem schliessen und vor dem Beenden/Speicher freigeben.

Das es bei Dir in einer endlos Schleife hängt ist dann glaub ich auch zu verstehen :)

Form fragt an ob geschlossen werden darf...
wenn der Nutzer Ja sagt fragt Dein Close gleich erneut wieder die OnCloseQuery ab.

Bei nein wird CanClose (Standard ist True) nicht verändert daher darf die Form schliessen.

gruss
Dennis

[turboPASCAL]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Wollen sie wirklich beenden ? (1)',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    close;
  end else
  begin
    Windows.Beep(880,25);
    MessageDlg('Abgrbrochen durch Anwender',
      mtConfirmation, [mbOK], 0);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MessageBox(Handle, 'Wollen sie wirklich beenden ? (2)',
    'Information', MB_ICONQUESTION or MB_YESNO) = IDYES then
  begin
    close;
  end else
  begin
    MessageBox(Handle, 'Abgrbrochen durch Anwender',
    'Information', MB_ICONINFORMATION or MB_OK);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Handle, 'Wollen sie wirklich beenden ? (3)',
    'Form Close', MB_ICONWARNING or MB_YESNO) = IDYES
    then Action := caFree
    else Action := caNone;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageBox(Handle, 'Wollen sie wirklich beenden ? (4)',
    'Form Close Query', MB_ICONWARNING or MB_YESNO) = IDYES
    then CanClose := TRUE
    else CanClose := FALSE;
end;

end.

Viel Spass beim Beenden. :mrgreen:

[agm65]

und wie sieht das jetzt bei einer andere funktion aus ?

zB:

Delphi-Quellcode:

if MessageDlg('Wollen sie wirklich beenden ?', mtConfirmation,[mbYes,mbNo],0) = mrYes then edit1.text := hi
else
edit1.text := ho

? da bleibt das fenster auch stehen