Discussion :

[franckcl]

Bonjour,

Je cherche à positionner un TButton sur la ligne sélectionnée d'un TListBox et je ne vois pas trop comment faire ? Comment connaitre les coordonnées d'un élément ?
Avec une TStringGrid, c'est facile mais là je ne vois pas...

Merci pour vos lumières
Franck

[Cirec]

Bonjour,

voici une piste :

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
16
17
18
19
procedure TForm1.ListBox1Click(Sender: TObject);
var
  aRect: TRect;
begin
  if ListBox1.ItemIndex <> -1 then
  begin
    aRect := ListBox1.ItemRect(ListBox1.ItemIndex);
    with TButton.Create(ListBox1) do
    try
      Parent := ListBox1;
      Top := aRect.Top;
      Left := ListBox1.ClientWidth - 25;
      Width := 20;
      Height := aRect.Bottom - aRect.Top;
    finally
 
    end;
  end;
end;

bien sur ce n'est pas un code à utiliser tel quel sinon il créera un TBoutton à chaque click
mais ça te donne une idée

Cordialement,

@+

[franckcl]

Oui, c'est itemRect que je cherchais en fait, je vais faire le reste maintenant, merci Cirec !!!