Discussion :

[Lorenzo77]

bonjour ... ou plutot bonsoir


-pour initialiser une appli (pour par exemple creer un tableau avec une boucle avant son utilisation dans l'appli) j'utilise pour l'instant une procedure que je mets sur l'evenement onCreate du Form1 mais ceci ne me semble pas tres propre ... auriez vous une soluce plus propre ?


-je me demande aussi comment faire un "onEnterFrame" ... je m'explique : j'aimerais qu'une action/procedure soit executé en boucle tant qu'un bouton reste cliqué ...
j'ai bien essayé d'assigner un nom de procédure a l'evenement onMouseDown mais il ce comporte comme le onClick.

quelqu'un a une idée sur la marche a suivre sans utiliser les horribles timer ?
peut etre que les timers sont obligatoires ?


merci

[Fabrice ROUXEL 1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
implementation
 
intialization
    le code d'initialisation ici ->           
 
finalization
 
end.

[Lorenzo77]

merci

un peu galere a placer mais j'ai fini par comprendre que le "bloc" d'ini. et de fini. doivent être placés tout a la fin ... apres les declarations des procedures.

par contre j'ai fait plusieurs tests et j'ai l'impression que le bloc d'initialization est executé avant la mise en place des objets posés sur le formulaire mais apres l'ini du formulaire ... resultat quand je fais référence a un de ces objets il me dit :
[Erreur] Unit1.pas(119): Identificateur non déclaré : 'Edit1'

[denokan]

normalement tu devrais placer ton code d'initialisation dans le OnCreate ou le OnActivate

autrement tu peux aussi placer un code d'initialisation directement dans le .dpr du projet : va dans le menu voir -> unités (ou Ctrl + F12), tu tombes sur la liste des unités plus celle du projet. choisis ce dernier, tu verras un fichier du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

juste avant le Application.Run tu peux placer du code d'initialisation

[Lorenzo77]

j'ai essayé de mettre un bout de code la aussi mais meme probleme :
[Erreur] Project2.dpr(12): Identificateur non déclaré : 'Edit1'
les objets de la scene ne sont pas encore déclarés a ce moment la, je peux juste agir sur les variables



quelqu'un a une idée pour la 2eme question de mon 1er message ?


merci

[denokan]

les objets de la scene ne sont pas encore déclarés a ce moment la, je peux juste agir sur les variables

il faut sans doute préciser la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.Edit1.Text := ...

quelqu'un a une idée pour la 2eme question de mon 1er message ?

à ta place j'utiliserai un timer. si vraiment tu souhaites faire sans, tu peux imaginer de lancer une fonction qui se lance lors du MouseDown sur le bouton, puis à la dernière ligne de la fonction, elle vérifie si le bouton est toujours appuyé, si c'est le cas elle se relance elle-même, etc... attention à bien rajouter un Application.ProcessMessages dans ta fonction. mais à mon avis le timer est tout indiqué

[Fabrice ROUXEL 1]

Tu ne peux faire appel aux composants de la fiche qu'une fois celle-ci créée. Logique non?

Pour le second cas, je suggère cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
begin
---
while (csLButtonDown in Button1.ControlSTate) do
begin
   maProcedure;
----