apparition de fenetre au démarage! - Delphi/Pascal - Programmation
Marsh Posté le 21-03-2007 à 07:40:05
s'il c'est un splashform que tu veux voici un exemple
que tu dois mettre dans ton source de projet
où splashform est ta fenêtre
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Title := 'Mon Programme';
Application.CreateForm(TMainForm, Form1);
Application.CreateForm(TData1, Data1);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
Marsh Posté le 21-03-2007 à 11:28:31
merci bien,mais je ne sais pas ou c'est "source projet" je l'ai mis au débu du programme a plusieur endroit pour éssayer a un endroit le programme y c'est bien lancer mais je n'ai pas eu de message qui c'est affiché!!
est-ce que je doit mettre un composant pour que le message s'affiche???
merci (désolé mais je suis débutant)
Marsh Posté le 23-03-2007 à 07:10:03
non , tu doit afficher le source du projet
menu <voir / source du projet>
tu n'indiques pas ta version de delphi
mais je pense avoir vu cette option jusqu'à D7 au moins
Marsh Posté le 23-03-2007 à 13:11:47
SergioYeu a écrit : non , tu doit afficher le source du projet |
ma version est le 5.0
Marsh Posté le 23-03-2007 à 13:22:08
SergioYeu a écrit : non , tu doit afficher le source du projet |
voila j'ai éssaye rien ne s'affiche a par une fenetre vide!!
ou dois-je mettre
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Title := 'Mon Programme';
Application.CreateForm(TMainForm, Form1);
Application.CreateForm(TData1, Data1);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
dans sa
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Marsh Posté le 24-03-2007 à 09:54:42
t'y est presque mais si t'oublie de declarer ta form splash ça peut pas coller
ton appli doit contenir deux unités unit1 celle que tu veux utiliser
splash celle qui doit s'afficher puis disparaitre
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Splash in 'Splash.pas' {SplashForm};
{$R *.RES}
begin
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.CreateForm(TForm1, Form1);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
[/quotemsg]
de plus dans options du projet / fiche
met unité splash en fiche disponible (evite auto-créqtion)
Marsh Posté le 13-03-2007 à 18:45:33
Bonsoir quelquun peux me dire si on sait faire apparaitre une fenêtre automatiquement au démarrage d'un programme style une fenêtre comme un showmessage qui explique le programme merci.