Discussion :

[Ptit_bouchon]

Bonjour à tous!

Je cherche à réinitialiser tous les contrôles d'un composant TForm.

J'ai essayé la méthode Repaint, Refresh, et plusieurs autres, mais sans résultat...

J'ai donc essayé de trouver de l'aide sur google, les différents forums et l'aide de Delphi. Suis-je la seule à rencontrer ce problème? Je n'ai en effet rien trouvé...

Existe-t-il une méthode liée au formulaire pour le réinitialiser? ou bien faut-il le détruire et le rappeller la méthode Create?

Par avance, merci pour votre aide. A bientôt.

Audrey

[ero-sennin]

Salut Audrey

Qu'appelles-tu réinitialiser tous les contrôles ?
Quels composants veux tu réinitialiser ?
Peux-tu nous donner plus d'infos ?

Merci

[Ptit_bouchon]

Salut ero-sennin!

En fait, je souhaite remettre mon formulaire à son état initial (comme lorsque je le lance pour la première fois): que le texte des Edit soit vide ou à leur valeur par défaut, idem pour les ComboBox, les SpinEdit ou encore les SortGrid...

[ero-sennin]

Re,

Tu n'as pas d'autres choix que de le faire par code, c'est à dire vider tous les contrôles ou remettre les valeurs par défaut lorsque cela est nécessaire. Le Refresh et Repaint ne servent pas à faire celà, ils ont une autre fonctionnalité (F1 sur ces mots ... je n'ai pas Delphi sous la main )

Ce que tu peux faire, c'est te créer une procédure (InitForm par exemple) qui se chargera de faire tout cela pour toi, ainsi un simple appel à cette procédure te remettra la Form dans son état initiale.

Si tu initialises des champs dans le OnCreate de ta Form, il te faut les mettre dans ta procédure et tu l'appelles dans le OnCreate ...

J'espère que mes explications sont claires et t'aideront
A bientôt

[Tardiff Jean-François]

Bonjour,

Il existe une méthode pouvant vous faciliter le travaille.

A la fin du on create de la form, ajouter quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  MyDefaultList := TStringList.Create;
  For I := 0 to Control.count - 1 do begin
 
    if Control[I] is TLabel then begin
     MyDefaultList.AddObject((Control[I] as TLabel).Caption, Control[I]);
   end if Control[I] is TEdit then begin
     MyDefaultList.AddObject((Control[I] as TEdit).Text, Control[I]);  
   end;
  end;

Ne pas oublier le MyDefaultList.Free dans le OnDestroy de la form.

Vous disposer d'une liste de composant contenant leur valeur a la fin du onCreate, vous pouvez donc remettre tous les valeurs "par defaut"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Procedure ResetDefault;
var
  I: Integer;
begin
  for i := 0 to MyDefaultList.count - 1 do begin
    if MyDefaultList.Objects[I] is TLabel then begin
      (MyDefaultList.Objects[I] as TLabel).Caption := MyDefaultList[I];
   end else begin 
     etc ..
   end;
  end;
end;

Attention, vous devrez peut être désactivez les évènements Onchange de certains composants avant de modifier les valeurs.

[Ptit_bouchon]

Ok, je vais faire ça alors.

Je pensais qu'il existait une méthode de Form qui le ferais pour moi... mais non. Tans pis!

Merci beaucoup pour votre aide.

A bientôt.

[Rayek]

Si ce n'est pas la form principale, la meilleure méthode reste la construction/destruction dynamique de la form

Ex:

Il faut que la form ne soit pas créée par défaut dasn les propriété du projet.

Code delphi :

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

1
2
3
4
5
6
7
 
MaForm := TMaForm.create(self);
try
  MaForm.ShowModal;
finally
  MaForm.release;
end;

[philnext]

Personnellement je pense qu'une fonction de réinit, vidant les composant peut tout à fait être appelée, style (ici pour les TEdit) :

Code :

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

1
2
3
4
  For I := 0 to Control.count - 1 do begin
      if Control[i] is TEdit then Control[i].text := '';