Kreuzbutton - kein Event ausgelöst?

[Christian Seehase]

Moin Richie,

so würd's gehen:

Delphi-Quellcode:

// Ausschnitt
    procedure WMCLOSE(var msg: TMessage); message WM_CLOSE;
  private
    { Private declarations }
    FfExit : Boolean;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  FfExit := False;
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
  while not FfExit do begin
    Application.ProcessMessages;
  end;
  Close;
end;

procedure TForm2.WMCLOSE(var msg: TMessage);
begin
  inherited;
  FfExit := True;
end;