• Registered: 2014-02-17
  • Posts: 375

Topic: How To Double Click In Tlistview For Show Message In Cell

https://i.ibb.co/DG2K7wX/D20240723-T095045.png

Download
https://myvisualdatabase.com/forum/misc … download=1

My Visual Database : I Love You
Easy For Beginner Student For Me

2 Reply by sparrow (edited by sparrow 2024-07-23 08:45:26)

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,018

Re: How To Double Click In Tlistview For Show Message In Cell

Hi,
Something like this


procedure OnDblClick(Sender: TObject);
var
  i: integer;
  tli: TListItems;
begin
  tli := listview.items;
  for i:=0 to tli.count - 1 do
  begin
    if tli.item[i].selected then showmessage(tli.item[i].caption);
  end;
end;

begin
...
listview.OnDblClick := @OnDblClick;
end.
  • Registered: 2014-02-17
  • Posts: 375

Re: How To Double Click In Tlistview For Show Message In Cell

sparrow wrote:

Hi,
Something like this


procedure OnDblClick(Sender: TObject);
var
  i: integer;
  tli: TListItems;
begin
  tli := listview.items;
  for i:=0 to tli.count - 1 do
  begin
    if tli.item[i].selected then showmessage(tli.item[i].caption);
  end;
end;

begin
...
listview.OnDblClick := @OnDblClick;
end.

OK It Work Thank You sparrow

IF i Will Show Column2 , Column3
How To Edit Code ?

My Visual Database : I Love You
Easy For Beginner Student For Me
  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,018

Re: How To Double Click In Tlistview For Show Message In Cell

If you plan to use the TListView component, I recommend reading about the properties and methods of the component and how to work with it.

procedure OnDblClick(Sender: TObject);
var
  i: integer;
  tli: TListItems;
begin
  tli := listview.items;
  for i:=0 to tli.count - 1 do
  begin
    if tli.item[i].selected then
    begin
      showmessage('Column0 - "'+tli.item[i].caption+'"');
      showmessage('Column1 - "'+tli.item[i].SubItems.Strings(0)+'"');
      showmessage('Column2 - "'+tli.item[i].SubItems.Strings(1)+'"');
      showmessage('Column3 - "'+tli.item[i].SubItems.Strings(2)+'"');
    end;
  end;
end;