Retrouver un composantRésolu

Question

Bonjour,
J'ai une Form avec des composants TLabel et TLabeledEdit.
Je voudrais sauvegardé dans un fichier la position de ces composants (c'est-à-dire propriété left, top, width et height). 
Pour les retrouver, je sais faire
var Tmp : TLabel
begin
    Tmp:=TLabel(findComponent('label1'));
   // et ensuite, j' accède à Tmp.left,....
end;
Mais je souhaiterais faire une boucle pour les retrouver tous sans connaître à l'avance son Type (TLabel, TLabeledEdit,...)

Merci d'avance pour votre aide

Caribensila · Accepted Answer

Bonjour,














var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i].ClassNameIs('TLabel')
   or (Components[i].ClassNameIs('TLabeledEdit') then begin

       //ici, (Components[i] as TControl).BoundsRect ... etc
       ...

   end;

Caribensila · Answer

... Ou si tu as bcp de types de composants, tu changes le tag des compos dont tu veux mémoriser la position, et :







var  i : Integer;
begin
for i := 0 to ComponentCount-1 do
  if Components[i].Tag <> 0 then begin...

kinay61 · Answer

Ta première solution fonctionne parfaitement mais pourquoi ne pas faire directement
(Components[i] as TControl).left;
(Components[i] as TControl).right;
(Components[i] as TControl).width;
(Components[i] as TControl).height;
Car avec BoundsRect, je n'ai pas directement Width et height

Caribensila · Answer

Avec BoundsRect tu obtiens rapidement et en une seule fois les coordonnées de tous les coins de ton contrôle.


Ensuite, il ne te reste plus qu'à faire :


var   
MyRect : TRect;


begin

MonControle.BoundsRect := MyRect;




Et ton contrôle est placé et dimensionné en une seule fois.

florenth · Answer

Salut ! Au lieu de BoundsRect, tu as SetBounds() et là, tu as tout ce que tu veux sous la main. D'ailleurs, quand tu fais :

MonControl.Left := X; MonControl.Top := Y; MonControl.Width = W; MonControl.Height := H;

Ces 4 lignes vont appeler 4 fois SetBounds(): perte de temps. Alors qu'il est bien plus simple de faire MonControl.SetBounds(X, Y, W, H); Sinon, au lieu de comparer les nom des classes, tu peux simplement faire : for I := 0 to ControlCount - 1 do Controls[I].SetBounds(X, Y, W, H). En effet, Controls[] retient tous les contrôles enfants d'un contrôle parent. C'est justement ce que tu veux, non ? ++ Ressources Delphi, sources, tutoriaux, actu, ...: www.mx-dev.nethttp://te%3C/body

Retrouver un composant

5 réponses

Votre réponse

Discussions similaires