Discussion :

[will-scs]

Oki merci beaucoup

[will-scs]

Hum, où dois-je inserez :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function getFrame(winControl: TWinControl):TComponent; 
var i: integer; 
begin 
  result := nil; 
  for i := 0 to pred(winControl.ComponentCount) do 
    if winControl.Components[i] is Tframe2 
      then begin 
             result := winControl.Components[i]; 
             break; 
           end; 
end;

et

Code :

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

1
2
3
4
5
6
7
8
 
var w: TComponent; 
begin 
  w := getFrame(Form1); 
  if w  <> nil 
    then TFrame2(w).maMethode... 
    //ou TFrame2(w).maPropriété... 
end;