apparition de fenetre au démarage!

apparition de fenetre au démarage! - Delphi/Pascal - Programmation

Marsh Posté le 13-03-2007 à 18:45:33    

Bonsoir quelqu’un 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.

Reply

Marsh Posté le 13-03-2007 à 18:45:33   

Reply

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;
 

Reply

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)

Reply

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

Reply

Marsh Posté le 23-03-2007 à 13:11:47    

SergioYeu a écrit :

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


ma version est le 5.0

Reply

Marsh Posté le 23-03-2007 à 13:22:08    

SergioYeu a écrit :

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


 
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.

 

Reply

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)

Reply

Marsh Posté le 24-03-2007 à 22:55:30    

j'abandonne ce ne veut pas marché  :fou:  
merci quand meme

Reply

Marsh Posté le 29-03-2007 à 08:53:27    

ça devrait pourtant !!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed