Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: beenden
5. Apr 2005, 21:39
Hallo,
so:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
//dein Code
close;
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|