Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1312 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  executer du code au chargement d'une form

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

executer du code au chargement d'une form

n°909446
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 00:42:33  profilanswer
 

: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
mood
Publicité
Posté le 28-11-2004 à 00:42:33  profilanswer
 

n°909461
antp
Super Administrateur
Champion des excuses bidons
Posté le 28-11-2004 à 01:31:05  profilanswer
 

Ç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
n°909548
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 12:14:39  profilanswer
 

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:

n°909555
antp
Super Administrateur
Champion des excuses bidons
Posté le 28-11-2004 à 12:24:12  profilanswer
 

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
n°909604
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 13:15:29  profilanswer
 

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:

n°909650
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 14:03:27  profilanswer
 

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

n°909652
antp
Super Administrateur
Champion des excuses bidons
Posté le 28-11-2004 à 14:06:11  profilanswer
 

Ç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
n°909658
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 14:11:27  profilanswer
 

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:

n°909666
antp
Super Administrateur
Champion des excuses bidons
Posté le 28-11-2004 à 14:20:31  profilanswer
 

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
n°909673
tomtom41
It's not a bug, it's a feature
Posté le 28-11-2004 à 14:23:00  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  executer du code au chargement d'une form

 

Sujets relatifs
executer un programme sur le serveur[HTML] form - mailto
Bouton qui cache une form et en ouvre une autre.Code VBA de mise en forme conditionnelle
Comment executer une requete SQL avec VB6 ?Cherche code source java pour décodeur de mp3
[pseudo-code] need help!!!"réserver" la zone d'une image en attendant son chargement ?
code en javascript et compatibilité[ASM/Intrinsics] Code asm généré
Plus de sujets relatifs à : executer du code au chargement d'une form


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR