Utilisation de FindComponent dans une unitéRésolu

Question

Bonjour, 
J'essaie de faire une unité avec des fonctions et procédures qui fonctionnent parfaitement lorsqu'elles sont intégrées à une application, mais produisent une erreur si je les passe en unités.
Voici le code :
unit uCreaPanel;

//############################//
         INTERFACE
//############################//

uses SysUtils,
     StrUtils,
     Classes,
     controls,
     graphics,
     extctrls
     ;

/// ========================= BMulti Panels  ===============================
    procedure CreaPAN(NL,NC:integer; L,H:integer; X,Y:integer; c:Tcolor;
                      KNOM:string; papa:TWincontrol; PROC:TNotifyEvent);
    procedure FreePAN(NL,NC:integer; KNOM:string);
    procedure TextePAN(n:integer; T:string; KNOM:string);
    procedure ColorPAN(n:integer; C:Tcolor; KNOM:string);
    //procedure ClicBP(Sender: TObject);

//############################//
         IMPLEMENTATION
//############################//

//##############################################################################
///*****************************************************************************
///*************************** MULTIPANEL **************************************
///*****************************************************************************
//##############################################################################

//--------------------------------------------------
procedure CreaPAN(NL,NC:integer; L,H:integer; X,Y:integer; c:Tcolor;
                 KNOM:string; papa:TWincontrol; PROC:TNotifyEvent);
var i,j,xx:Integer; z:string; bb:TPanel;
// panels créés : PAN1 à PANx  avec x = NC*NL      
begin
for j:=0 to NL-1 do
    for i:=0 to NC-1 do
        begin
        xx := j*nC+i+1;
        z := KNOM + IntToStr(xx);
        bb := TPanel.Create(papa);
        bb.Name    := z;
        bb.Left    := i*L+X;
        bb.top     := j*H+Y;
        bb.width   := L;
        bb.height  := H;
        bb.Color   := c;
        bb.BevelWidth := 1;
        bb.caption := '';
        bb.Parent  := papa;
        bb.visible := true;
        bb.Tag     := xx;
        bb.Caption := inttostr(xx);
        bb.BringToFront;
        bb.OnClick := PROC;
        end
end;

//----------------------------------------------------
procedure FreePAN(NL,NC:integer; KNOM:string);
var i:integer;
begin
for i:=0 to NL*NC-1 do Tpanel(findComponent(KNOM + inttostr(i))).Free
end;
//----------------------------------------------------
procedure TextePAN(n:integer; T:string; KNOM:string);
begin
Tpanel(tpanel.findComponent(KNOM + inttostr(n))).Caption := T
end;

//----------------------------------------------------
procedure ColorPAN(n:integer; C:Tcolor; KNOM:string);
begin
Tpanel(findComponent(KNOM + inttostr(n))).Color := C
end;

END;

Erreur à la compilation : "identificateur non déclaré : findComponent"
FindComponent appartient à priori à Tcomponent contenu lui même dans "Classes"
Bref je sêche !
merci

korgis · Answer

Salut,

sans trop rentrer dans le détail, pour la procedure FreePan, par exemple, je ferais :

procedure FreePAN(NL, NC: integer; KNOM: string; papa: TWincontrol);
var
  i: integer;
begin
  for i := 0 to NL * NC - 1 do
    with papa do
      Tpanel(FindComponent(KNOM + IntToStr(i))).Free;
end;

Faut pas oublier le "papa"...

dubois77 · Answer

Salut Yanb, Salut Papyvore
Je n'ai encore testé que la version de Yannb : ça marche bien : tous les panels déposés sur la fiche deviennent des boutons ; par contre cela ne touche pas les panel créés dynamiquement par mon creaPanel.
Pour l'instant avec mon système je peux transformer une série de panels bien définis (ex: panels XXX1 à nXXX17) les autres panels restant de vrai panels.

Pour le frame, la mise en place semble être plus complexe à mettre en oeuvre rapidement sur une appli standard

Merci à tous les deux, j'ai de quoi passer les longues journées d'hiver qui restent !

Utilisation de FindComponent dans une unité

2 réponses

Votre réponse

Discussions similaires