Controles en un TListView

[walrus]

Hola, ¿es posible incluir controles, por ej. un TButton, en una celda de un TListView? Sería más o menos como el TDBGrid cuando presenta esos botones con los "...".

Gracias de nuevo.

[diegofhernando]

hola... pues ahi te va como insertar un TEdit en un TListView:


procedure TForm1.Button1Click(Sender: TObject);
var
rec: TRect;
item: TListItem;
elEdit: TEdit;
begin
// lista = TListView

with Lista do
begin
item:= items.add;
item.SubItems.add('');
rec := tems[Items.Count - 1].DisplayRect( drBounds );
rec.Left:= Columns[0].Width;
rec.Right:= rec.Left + Columns[1].Width;
elEdit:= TEdit.Create(Lista);
elEdit.BoundsRect:= rect;
elEdit.Parent:= Lista;
end;
end;

bien eso seria todo, de igual forma podrias hacer con TComboBox y demas... espero te sirva

Salu2

[walrus]

Gracias por tu ayuda, aunque tengo un inconveniente y es que al redimensionar las columnas del TListView contenedoras del control, también quisiera que se redimensionarán los controles (en este caso, un TButton) ¿algún consejo?

Gracias de nuevo.

[diegofhernando]

bien, la verdad nunca he necesitado hacerlo... y para evitar q el usuario redimensione las columnas, reemplazo el encabezado el TListView con un THeaderControl... imagino q con un poco de pruebas se podria hacer, lamentablemente no dispongo del tiempo para colaborarte.

Salu2