executer du code au chargement d'une form

executer du code au chargement d'une form - Delphi/Pascal - Programmation

Marsh Posté le 28-11-2004 à 00:42:33    

:hello:  
 
je cherche à executer un code au chargement d'une form, cependant je n'y arrive pas, après quelques recherches j'ai rien trouvé.
avez vous une idée ? :??:  
 
merci pour votre aide  :jap:


Message édité par tomtom41 le 28-11-2004 à 00:42:47
Reply

Marsh Posté le 28-11-2004 à 00:42:33   

Reply

Marsh Posté le 28-11-2004 à 01:31:05    

Ça dépend ce que t'appelles "chargement"
T'as son constructeur, ses événements OnCreate/OnShow/OnActivate, la méthode Loaded... il y a plein d'étapes :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 28-11-2004 à 12:14:39    

merci de me répondre  :love:  
 
alors voila ce que j'aimerais faire :
 
-> le user lance l'application
-> l'interface est crée
-> une fois tout ceci fait un code s'execute (au lieu que l'utilisateur appuie sur un bouton pour le faire) le OnShow me semble bien pour ca non ? :hello:

Reply

Marsh Posté le 28-11-2004 à 12:24:12    

OnCreate c'est après que la form soit créée et ses composants chargés (donc après le Create)
OnShow c'est juste avant que la form ne soit affichée (donc après que l'on appelle Show ou ShowModal)
OnActivate c'est juste après qu'elle soit affichée (et peut-être à chaque fois qu'elle reprend le focus, à voir)


Message édité par antp le 28-11-2004 à 12:25:27

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 28-11-2004 à 13:15:29    

antp a écrit :

OnCreate c'est après que la form soit créée et ses composants chargés (donc après le Create)
OnShow c'est juste avant que la form ne soit affichée (donc après que l'on appelle Show ou ShowModal)
OnActivate c'est juste après qu'elle soit affichée (et peut-être à chaque fois qu'elle reprend le focus, à voir)


 
merci je vais voir ca  :jap:

Reply

Marsh Posté le 28-11-2004 à 14:03:27    

bon j'ai un problème :(
la fonction OnCreate/OnShow/FormActivate n'est jamais appelé et je ne vois pas pourquoi :(
 :sweat:

Reply

Marsh Posté le 28-11-2004 à 14:06:11    

Ça c'est pas normal [:figti]
Tu peux donner un peu plus de détails sur ton code et les objets utilisés ?


Message édité par antp le 28-11-2004 à 14:06:26

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 28-11-2004 à 14:11:27    

alors voici mon code :
 
une seule form, et quelques procedures/fonctions
 

Code :
  1. unit WPTom_0;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  6.   IdTCPClient, IdHTTP, jpeg, WinInet, ComCtrls, IniFiles;
  7. type
  8.   TForm1 = class(TForm)
  9.     IdHTTP1: TIdHTTP;
  10.     wallpaper: TButton;
  11.     Cadre: TGroupBox;
  12.     ProgressDownload: TProgressBar;
  13.     DownloadStatus: TLabel;
  14.     MajFile: TButton;
  15.     DateFile: TLabel;
  16.     procedure wallpaperClick(Sender: TObject);
  17.     procedure MajFileClick(Sender: TObject);
  18.     procedure Download(Taille:integer);
  19.     procedure DisplayDate;
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25. var
  26.   Form1: TForm1;
  27. implementation
  28. {$R *.dfm}
  29. function InternetConnectionCheck:Boolean;
  30. (...)
  31. procedure Convertir;
  32. (...)
  33. procedure TForm1.DisplayDate;
  34. (...)
  35. procedure TForm1.Download(Taille:integer);
  36. (...)
  37. procedure TForm1.wallpaperClick(Sender: TObject);
  38. (...)
  39. procedure TForm1.MajFileClick(Sender: TObject);
  40. (...)
  41. procedure Oncreate(Sender: TObject);
  42. (...)
  43. begin
  44. (...)
  45. end.


 

Code :
  1. program WPTom;
  2. uses
  3.   Forms,
  4.   WPTom_0 in 'WPTom_0.pas' {Form1};
  5. {$R *.res}
  6. begin
  7.   Application.Initialize;
  8.   Application.CreateForm(TForm1, Form1);
  9.   Application.Run;
  10.  
  11. end..


 
merci  :jap:

Reply

Marsh Posté le 28-11-2004 à 14:20:31    

heu il a une drôle de tronche ton OnCreate... tu l'as pas créé via la liste d'événements de la Form ? (dans l'object inspector)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 28-11-2004 à 14:23:00    

ah oui c'est bon ca marche  :D  
désolé j'ai pas trop l'habitude d'utiliser des interfaces pour coder.
 :ange:  :hello:

Reply

Sujets relatifs:

Leave a Replay

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