Réinitialiser un panel.

Question

Salut les gras,



Juste une ptite kestion.

J'ai un panel qui contient plusieurs labels et edit dont les valeurs
changent. Je voudrais en clickant sur un bouton r&#233;initialiser les
valeurs de tt les lables ou edit &#224; leur valeur d'origine. Si qqn peut
me donner le code du bouton svp.



Merci &#224; tous.

-----------------------------------------

May Delphi and Php change the world ....

ni69 · Answer

Ben &#233;coute, c'est aussi simple que &#231;a :



procedure MyButtonClick(Sender : TObject);

begin

 Edit1.Text :=  'Text d'origine';

 Label1.Caption := 'Text d'origine';

 [...]

 end ;



Il n'y a pas d'autre solution...

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size ="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Becracker · Answer

M&#233; comme ya plusieurs edit et label, je me disais kil yaurai une bien coutre m&#233;thode. Mais merci  kan m&#234;me pour la r&#233;ponse.

-----------------------------------------

May Delphi and Php change the world ....

ni69 · Answer

J'ai bien une autre solution &#224; te proposer, mais &#224; ce moment l&#224;, il faut que le texte soit le m&#234;me dans tous tes Edits et Labels :



procedure TForm1.MyButtonClick(Sender: TObject);

var

 i : integer;

begin

 for i :=   0 to  ComponentCount-1 do begin // Parcours tous les composants de la fiche

  if (Components[i] as TControl).Parent  = Panel1 then begin // Si ils sont contenus dans Panel1,

    if Components[i] is TEdit then (Components[i] as TEdit).Text :=  'Texte Initial'; // On change le texte des Edits

     if  Components[i] is TLabel then (Components[i] as TLabel).Caption : = 'Texte Initial'; // On change le texte des Labels


  end;

 end;

end;

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

rylryl · Answer

Bonjour, c'est une bonne id&#233;e ni69 !
En la modifiant un peu, c'est ok.


   EEdit : array of Tedit;
   LLabel : array of tlabel;
   EditText : array of string;
   LabelCaption : array of string;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
     for i:=0 to Length(EEdit)-1 do begin//Pour les TEdits
       EEdit[i].text:=EditText[i];// On change le texte
     end;
     for i:=0 to Length(LLabel)-1 do begin//Pour lesTLabels
       LLabel[i].Caption:=LabelCaption[i];// On change le caption
     end;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
var
 i,j,k : integer;
begin
     j:= 1;
     k:= 1;
 for i := 0 to ComponentCount-1 do begin // Parcours tous les composants de la fiche
  if (Components[i] as TControl).Parent = Panel1 then begin // Si ils sont contenus dans Panel1,
    if Components[i] is TEdit then begin// SI des TEdits
        SetLength(EditText,j);
        EditText[j-1]:=TEdit(Components[i]).Text;// On sauvegarde son texte
        SetLength(EEdit,j);
        EEdit[j-1] :=TEdit(Components[i]);
      inc(J);
    end;
    if Components[i] is TLabel then begin// SI des TLabels
        SetLength(LabelCaption,k);
        LabelCaption[k-1]:=TLabel(Components[i]).Caption;// On sauvegarde son "caption"
        SetLength(LLabel,k);
        LLabel[k-1] :=TLabel(Components[i]);// On sauvegarde le composant correspondant
      inc(k);
    end;
  end;
 end;
end;


A+
ryl...

Réinitialiser un panel.

4 réponses

Votre réponse

Discussions similaires