Topic: How To Double Click In Tlistview For Show Message In Cell
Download
https://myvisualdatabase.com/forum/misc … download=1
Easy For Beginner Student For Me
My Visual Database → Script → How To Double Click In Tlistview For Show Message In Cell
Download
https://myvisualdatabase.com/forum/misc … download=1
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.
Hi,
Something like thisprocedure 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 ?
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;
My Visual Database → Script → How To Double Click In Tlistview For Show Message In Cell
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi