6 replies to this topic

[adriano_servitec]

Buenas noches a todos,

Tengo un ListView tiene 4 columnas, y tengo que tomar medidas cuando se le da un clic en sólo la primera columna de la vista de lista.

Exemplo + ou - assí.

delphi

if listview.collumn[0].selected then
  execute algo

Gracias por la ayuda a todos.

[escafandra]

delphi

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (X > 0) and (X < ListView1.Columns[0].Width) and (ListView1.GetItemAt(1, Y) <> nil) then
    Beep;
end;

Saludos.

[adriano_servitec]

Muy gracias Escafandra

El código se trabajó muy bien para lo que necesito.

Gracias amigo.

[adriano_servitec]

Aprovechando el post ... Su crHandPoint cambiar el cursor cuando en la columna 0, y volver como en las otras columnas crDefault la ListView?

[escafandra]

delphi

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X > 0) and (X < ListView1.Columns[0].Width) and (ListView1.GetItemAt(1, Y) <> nil) then
     ListView1.Cursor:= crHandPoint
  else
     ListView1.Cursor:= crDefault;
end;

Saludos.

[adriano_servitec]

Excelente ...
Funcionó como yo quería. 

Una vez más gracias

[adriano_servitec]

Hola, soy nuevas dudas...



Su centro es la imagen que aparece allí, en ListView?

Gracias..