J'ai fait un splashscreen tout simple, en déclarant une form lambda nommée TSplashForm , en mettant une image GIF animée dedans.
Je veut qu'elle s'initialise au démarrage, alors je fais exactement ca dans le fichier project1.dpr:
Citation :
var
SplashForm : TSplashForm;
begin
Application.Initialize;
SplashForm := TsplashForm.create(application);
SplashForm.Show; // affichage de la fiche
SplashForm.Update; // force la fiche à se dessiner complètement
try
Application.CreateForm(TForm1, Form1);
SplashForm.close;
finally
SplashForm.Release;// libération de la mémoire end;
Application.Title := 'OCCT';
Application.Run;
end;
|
mais le blem c'est que ca s'affiche OK, mais pas comme je le voudrais, c'est a dire que le contenu ne réagit pas
j'ai donc essayé de faire un thread appelé depuis le .dpr qui va repainter le splashscreen toutes les X secondes, mais ca marche pas erreurs en cascade, alors que ca marche parfaitement une fois l'appli initialisée
Une idée ?
---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !