Discussion :

[qi130]

Bonjour,

J'ai 1 Form contenant 1 Panel qui contient 1 ScrollBox dans laquelle je créé des listbox non visibles en runtime.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
with TListBox.Create(ScrollBox1) do begin
   Name:='lboxContrainte'+RightStr('00'+IntToStr(j+1),3);
   Visible:=False;
   Parent:=ScrollBox1;
   Items:=InfoContrainte;
   Top:=20; Left:=20;
   Height:=250;
   width:=200;
end;

Au survol d'un TLabel, je souhaite rendre visible la listbox associée:

Code :

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

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

Bien sûr le mouseLeave est prévu pour la cacher

Pb: le

Code :

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

with TListBox(FindComponent('lboxContrainte'+numContrainte)) do Visible:=True

génère une violation d'accès...lecture de 0x0..69

Un avis ?

Merci d'avance.

[ShaiLeTroll]

Pourquoi ne pas avoir continuer l'autre sujet Assigner un évènement à 1 composant créé dynamiquement ?

Surtout que j'avais donné la réponse à ce problème (ScrollBox1.FindComponent('lboxContrainte'+numContrainte) as TListBox) avec bien ScrollBox1 comme receveur de la méthode FindComponent puisque c'est lui le Onwer des objets dynamiques, c'est lié directement au paramètre du constructeur TListBox.Create(ScrollBox1);

Le code que vous utilisez c'est comme Form2.FindComponent qui renvoie nil et le transypage sauvage sans vérification si l'objet est trouvé, ensuite la propriété visible qui doit être à l'adresse offset + 69, donc nil + 69 soit 0x00000069.
Form2 n'est pas le Onwer donc il ne peut pas trouver ce composant

[qi130]

Merci pour le tuyau.

Pourquoi ne pas avoir continuer l'autre sujet Assigner un évènement à 1 composant créé dynamiquement ?

Car pour moi, c'est un autre problème, plus à sa place dans "VCL" que dans "Langage".

Surtout que j'avais donné la réponse à ce problème

Réponse par anticipation que j'ai zappée

Du coup, comment faire pour que la listbox s'affiche toujours dans l'espace visible de la scrollbox? (parce qu'une scrollbox ... ça scrolle )
Et je ne peux pas utiliser les coordonnées du TLabel associé.