'Soir,
je cherche s'il est possible de lister "aveuglement" tous les composants présents sur un CDialog ?
un peu comme en delphi qu'en on utilise le tableau Components et la variable ComponentCount :
Mon but est de repositionner proportionnelement tous les composants lors d'un resize.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to ComponentCount -1 do begin if Components[i].ClassName = 'TEdit' then TEdit(Components[i]).Text := ''; end; end;
merci
Partager