Discussion :

[firejocker]

'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 :

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;

Mon but est de repositionner proportionnelement tous les composants lors d'un resize.

merci