5 respuestas en este tema

[TiammatMX]

Buena tarde, jóvenes y jóvenas...

Resulta que estoy programando una aplicación que más o menos va así... (Observar la imagen adjunta, por favor)

Notarán el panel de enmedio, es un TListView que ya contiene la funcionalidad que con doble click sobre un elemento, lo transfiere al panel a su derecha.

delphi

procedure TfrmIntrfz.lstvewSbctgrsDblClick(Sender: TObject);
var
  iIndc : integer;
  bExst : boolean;
begin
  if lstvewSbctgrs.Items.Count > 0 then
  begin
    bExst := False;
    for iIndc := 0 to lstboxRbrs.Items.Count -1 do
      if lstvewSbctgrs.ItemFocused.Caption = lstboxRbrs.Items.Strings[iIndc] then
        bExst := True;
 
    if NOT bExst then
    begin
      lstboxRbrs.Items.Add(lstvewSbctgrs.ItemFocused.Caption);
      bitbttnActlzrRprt.Enabled := True AND EsPropietario(iIdntfcdrRprt);
      bHaCambiado := True;
    end;
    trevewCtgrsClick(Self);
  end;
end;

PPPEEERRROOOOOOOOO..., y como todo en ésta vida tiene un "pero", resulta que si el usuario da un doble click FUERA del texto (es decir, sin tenerlo enfocado), tira una violación de acceso por que entra la función de doble click e intenta procesar un valor nulo...

La pregunta es, ¿cómo puedo evaluar el contenido del doble click dentro del TListView, permitiéndome "cachar" el doble click nulo o sin valor procesable? Añadiré que ya intenté evaluar NIL, NULL, vacío y todos los contenidos que me parecieron podrían caber en la condición, pero el problema se repite...

Como siempre, agradezco de antemano su colaboración para resolver éste problema.

Archivos adjuntos

•  2798_3d5660f55d42c8e3ed842cde50d91f1be6bbed09.jpg   259,07KB   16 descargas

[egostar]

Lo que pasa estimado amigo, es que e Items.Count siempre te va a retornar > a cero, por la sencilla razón de que es la cantidad de elementos que contiene el listview. Para eso tienes que utilizar la propiedad SelCount mas o menos así:

delphi

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  iIndc : integer;
  bExst : boolean;
begin
  if lstvewSbctgrs.SelCount > 0 then
  begin
    bExst := False;
    for iIndc := 0 to lstboxRbrs.Items.Count -1 do
      if lstvewSbctgrs.ItemFocused.Caption = lstboxRbrs.Items.Strings[iIndc] then
        bExst := True;
 
    if NOT bExst then
    begin
      lstboxRbrs.Items.Add(lstvewSbctgrs.ItemFocused.Caption);
      bitbttnActlzrRprt.Enabled := True AND EsPropietario(iIdntfcdrRprt);
      bHaCambiado := True;
    end;
    trevewCtgrsClick(Self);
  end;
end;

Intenta y nos comentas.

SaludOS

[egostar]

De la ayuda de Delphi

Items (protected)  Contains the list of items displayed by the list view. 

SelCount (public)  Specifies the number of selected items in the list view.

TCustomListView.SelCount Property

Specifies the number of selected items in the list view.

Class
TCustomListView

Syntax

property SelCount: Integer read GetSelCount;

Description

Read SelCount to determine the number of items that are currently selected. When SelCount is 1, use the Selected property to access the selected item. To locate the selected items when SelCount is greater than one, check the Selected property of the list items, beginning with the item specified by the Selected property.

Note: SelCount can only exceed 1 if the MultiSelect property is true.

SaludOS

[escafandra]

Evidentemente sin poder probar nada, he realizado un pequeño cambio:

delphi

procedure TfrmIntrfz.lstvewSbctgrsDblClick(Sender: TObject);
var
  iIndc : integer;
begin
if lstvewSbctgrs.SelCount > 0 then
  begin
    if NOT (lstvewSbctgrs.Selected.Caption = lstboxRbrs.Items.Strings[iIndc])  then
    begin
      lstboxRbrs.Items.Add(lstvewSbctgrs.ItemFocused.Caption);
      bitbttnActlzrRprt.Enabled := True AND EsPropietario(iIdntfcdrRprt);
      bHaCambiado := True;
    end;
    trevewCtgrsClick(Self);
  end;
end;

Espero que te sirva.

Saludos.

[Sergio]

Puedes usar el pixel donde se hace el click (Mouse.CursorPos) y pedirle al ListView que te diga el item mas cercano a ese punto con la funcion GetNearestItem:

Call GetNearestItem to locate a list item from a position specified in pixel coordinates relative to the top left corner of the list view. GetNearestItem starts looking at the position specified by the Point parameter, and moves in the direction indicated by the Direction parameter until it locates a list item. If no item is found, GetNearestItem returns nil (Delphi) or NULL (C++).

Solo tienes que convertir las coordenadas de pantalla de Mouse.CursorPos a coordenadas relativas a la esquina de tu ListView, y eso es solo hacer lstvewSbctgrs.ScreenToClient(Mouse.CursorPos).

Respecto de la direccion de busqueda, dile que apunte para arriba (sdAbove) y listo, asi, si pinchan abajo te devuelve el ultimo de la lista.

delphi

Clickado:= lstvewSbctgrs.GetNearestItem(ScreenToClient(Mouse.CursorPos), sdAbove);
if Assigned(Clickado) then begin

[TiammatMX]

¡¡Gracias, chavos!!, mi anciano pellejo sigue completo gracias a ustedes.