|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Form nach einer gewissen Zeit minimieren...
20. Dez 2005, 14:44
Also ich würde es so machen, wobei FormShow das OnShow Event der Form ist:
Delphi-Quellcode:
procedure FormShow(Sender: TObject);
const time=10000;
var start: Cardinal;
begin
start:=GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount>start+time;
Minimize;
end;
(ungetestet)
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|