ShowModal mit Programmablauf und selbst schließen?

[dataspider]

Hi,

ich mach es gern so:

Code:

unit frm_Modal;

interface

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

type
  TfrmModal = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  end;

var
  frmModal: TfrmModal;

implementation

{$R *.dfm}

procedure TfrmModal.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppIdle;
end;

procedure TfrmModal.AppIdle(Sender: TObject; var Done: Boolean);
begin
  Application.OnIdle := nil;
  // Mach was
  Close;
end;


end.

Frank