Hallo,

man kennt ja von fast allen Programmen ein Fenster dass beim Öffnen der Anwendung angezeigt wird. Ich möchte das auch machen, dieses Fenster soll solange angezeigt werden, bis die Anwendung geöffnet ist, aber mindestens 2 Sekunden. Kann mir jemand sagen, wie ich das mache?

Gruß
Thomas

such mal nach "Splashscreen", da gibts sogar ein Tutorial dazu

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  wantclose :boolean = false;
  n : integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc(n);
 if n = 2 then Timer1.Enabled := false;
 if wantclose then close();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 wantclose := true;
 if n<2 then Action := caNone else Action := caFree;
end;

So geht das...