Controls on list box items?

[WojTec]

Hello,

I created simple, but nice list for display layers on image. This is very simple list based on TListBox with custom drawed items. Look nice, but is not too functional, because can't change layer visibility. And now is problem. Is possible add some clickable control to that list (for example button with image on it from image list component)?

[alzaimar]

Try a scrollbox. You can create as many controls as you like at runtime.

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
var
  i: Integer;
  CheckBox1: TCheckBox;

begin
  for i := 1 to 20 do begin
    CheckBox1 := TCheckBox.Create(Self);
    with CheckBox1 do begin
      Name := 'CheckBox' + intToStr(i);
      Parent := ScrollBox1;
      Left := 32;
      Top := 2 + 19 * i;
      Width := 97;
      Height := 17;
      Caption := 'CheckBox ' + intToStr(i);
      TabOrder := i - 1;
    end;
  end;
end;

[WojTec]

No. I need controls on listbox items...

[alzaimar]

Ah, any specific reason ?

[toms]

Zitat:

Zitat von WojTec

No. I need controls on listbox items...

Just change the code from alzaimar: Replace TScrollBox with TListbox

[alzaimar]

But then you have to repaint them yourself.