Discussion :

[qi130]

Bonjour,

Je n'arrive pas à trouver la bonne syntaxe pour faire...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    with TLabel.Create(ScrollBox1) do begin
              Name:='Contrainte'+RightStr('00'+IntToStr(j+1),3);
              Left:=PosX+200;
              Top:=PosY;
              Caption:='Contrainte(s) identifiée(s)';
              OnMouseEnter:=ContrainteMouseEnter(???????????????);          
                 with TListBox.Create(ScrollBox1) do begin
                   Name:='lboxContrainte'+RightStr('00'+IntToStr(j+1),3);
                   Visible:=False;
                   Parent:=ScrollBox1;
                 end;
              end;
              Parent:=ScrollBox1;
              if Fields[j].DefaultValue<>'' then Hint:=Fields[j].DefaultValue;
           end;

afin d'appeler:

Code :

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

1
2
3
4
5
6
procedure TForm2.ContrainteMouseEnter(Sender:TObject);
var numContrainte:string;
begin
     numContrainte:=RightStr((Sender as TLabel).Name,3);
     TListBox('lboxContrainte'+numContrainte).Visible:=True;
end;

Merci par avance.

[ShaiLeTroll]

Code :

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

OnMouseEnter:=ContrainteMouseEnter;

en supposant que Self est une instance de TForm2


Utilise aussi le Tag si tu veux stocker un Numéro (au lieu de l'extraire du nom)


et TListBox('lboxContrainte'+numContrainte)... c'est (ScrollBox1.FindComponent('lboxContrainte'+numContrainte) as TListBox)...

En supposant que ScrollBox1 est un membrre de TForm2

[qi130]

Merci beaucoup !
J'essayais sans succès de transtyper le TLabel ... pkoi faire compliqué quand on peut faire simple