Hallo
Delphi-Quellcode:
procedure TFormSplash.OnLoop(sender:TObject);
begin
//splash screen zu ende
end;
procedure TFormSplash.FormCreate(Sender: TObject);
begin
//Application.CreateForm(TFormMain, FormMain);
(ImageSplash.Picture.Graphic as TGIFImage).Animate := True;
(ImageSplash.Picture.Graphic as TGIFImage).OnLoop := OnLoop;
end;
Ich habe ein animiertes gif als splashscreen das sobald es einmal durchlaufen ist die mainform laden soll.
Ich kenne mich mit eventhandlich in delphi nicht aus, daher bin ich ratlos was daran falsch ist. Kann ich prozeduren so nicht dem event zuweisen?
Danke