Discussion :

[roland34]

bonjour
j'ai un tpanel que je remplis dynamiquement lors de la creation de la fiche avec d'autre composants(panel,label memo edit)

je cherche a faire une fonction de recherche de composant dans ce tpanel

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function tform1.recherche(conteneur:tpanel; maclass:class):tcontrol;
var i:integer;
begin
for i:=0 to conteneur.ControlCount-1 begin
        if conteneur.controls[i] is maclass and autre condition then
                begin
                result:=conteneur.Controls[i]
                break;
                end;

je ne sais pas comment déclarer le second parametre (maclass) pour faire un truc du genre

Code :

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

1
2
 
recherche (monpanel,tmemo) pour trouver le composant tmemo contenu  dans monpanel

merci

[Lung]

Un TControl ?

[SergioMaster]

Bonjour,

rapidement, j'aurai botté en touche et utilisé ClassName (donc un string)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function tform1.recherche(conteneur:tpanel; maclass:string):tcontrol;
var i:integer;
begin
for i:=0 to conteneur.ControlCount-1 
  begin
        if Sametext(conteneur.controls[i].ClassName,maclass) and autre condition then
                begin
                  result:=conteneur.Controls[i]
                  break;
                end;
  end;
end;

mais je serai curieux de savoir quelle déclaration le ferait

[Andnotor]

Ce paramètre est une référence de classe (type of).
Un certain nombre sont déjà définies, exemple TClass pour TObject, TControlClass pour TControl.

Code :

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

function recherche(Conteneur:TPanel; MaClass:TClass):TControl;

[Paul TOTH]

faut arrêter avec ces méthodes de barbares

tu as besoin d'accéder à ce composant ? ben tu gardes une référence vers lui, et puis voilà tout.

Code :

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

1
2
3
4
5
 
begin
  MonMemo := TMemo.Create(Panel1);
  MonMemo.Parent := Panel1;
end;

et hop ! c'est MonMemo qui est dans Panel1, pas besoin de le chercher.

[roland34]

merci à tous
la solution de andnotor est parfaite