Al realizar doble clic sobre un listview en blanco lanza error

[[maeyanes]]

Hola...

A mi me suena a que tienes que verificar si hay algún elemento seleccionado antes de querer hacer algo con él. Pero como bien dice Casimiro, sin ver el código no podemos hacer nada, que la bola de cristal tiene rato que no funciona como debe...


Saludos...

[wolfran_hack]

les dejo un ejemplo, lo hace solamente cuando tenemos un onclick o ondoubleclick.

error.rar (221 KB)
https://mega.co.nz/#!vNw1VAJB!NT0ZvB...5eulRF5PMeCUxw

En este ejemplo se agrega al listview1 mediante un form independiente, luego si se hace doble click sobre uno de los items el mismo aparecerá en el Edit1, pero si se hace doble click sobre el cuerpo en blanco del listview1, el mismo lanza el error.

[Casimiro Noteví]

¿No puedes poner el código aqui?

[wolfran_hack]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList, ExtCtrls, StdCtrls, OleCtrls, SHDocVw, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    ListView1: TListView;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure OnDbleCkic(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DirIP: String;
  Queue: String;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.OnDbleCkic(Sender: TObject);
begin
/// lo que queremos que haga al hacer doble click.
Edit1.Text := ListView1.Selected.Caption;
end;

end.

[ecfisa]

Hola wolfran_hack.

Código Delphi [-]
procedure TForm1.OnDbleCkic(Sender: TObject);
begin
  /// lo que queremos que haga al hacer doble click.
  if Assigned(ListView1.Selected) then
    Edit1.Text := ListView1.Selected.Caption;
end;

Saludos.

[wolfran_hack]

ahora si, gracias ecfisa!

Código Delphi [-]
procedure TForm1.OnDbleCkic(Sender: TObject);
begin
if Assigned(ListView1.Selected) then
  begin
Edit1.Text := ListView1.Selected.Caption;
  end
  else
  begin
  end
end;