Discussion :

[adelneo]

Bonjour,
J'ai plusieurs form qui contiennent des composants TEdit,TComboBox,TJVCheckedCobobox.
Ce que je veux c'est qu'a la fermeture de la form (dans l'événement OnClose) tout les composants se réinitialisent (leurs contenue redevient vide).
Bien sûr il y a la méthode classique qui fonctionne parfaitement mais qui est inapproprié si le nombre de composant est important:

Code :

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

1
2
3
Edit1.text:='';
Combobox1.clear;
JVCheckedcombobox1.clear;

j'ai tenté la méthode suivante mais sans succès

Code :

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

1
2
With Tedit(sender),TComboBox(sender),TJVCheckedCombobox(sender) do 
clear;

[evarisnea]

si tes edits sont tous posés directement sur la form ceci devrait marcher, sinon il faudra adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure XXX
var
  i:Integer;
begin
  for i:=0 to ControlCount-1 do
    if (Controls[i] is TEdit) then
      TEdit(Controls[i]).Text := ''
    else if (Controls[i] is TComboBox) then
      TComboBox(Controls[i]).Clear
    else if (Controls[i] is TJVCheckedcombobox) then
      TJVCheckedcombobox(Controls[i]).Clear;
end;

[ShaiLeTroll]

Le plus simple reste quand même de libérer la fenêtre lors du OnClose (voir Action caFree)
Et de l'instancier de nouveau au moment opportun !
Il n'y a rarement intérêt a conserver en mémoire une fenêtre cachée

sachant que je ne maitrise pas la POO

Euh, c'est quoi ce genre d'excuse pourri, tu veux programmer en Delphi, tu devrais commencer par Introduction à la Programmation Orientée Objet et Guide Pascal et Delphi

[adelneo]

Merci à tous.

Euh, c'est quoi ce genre d'excuse pourri, tu veux programmer en Delphi, tu devrais commencer par Introduction à la Programmation Orientée Objet et Guide Pascal et Delphi

je prendrais vos conseils au sérieux merci encore.