Nou je Enter key capture je netjes daar. Alleen probeer je de event van de DoubleClick direct uit te voeren zonder de juiste variabelen mee te geven. Ik weet niet of er zoiets als een "selected" property is op die listview (neem aan van wel) dan zou je zoiets kunnen doen:
Delphi Code:
unit uTestELV;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MPCommonObjects, MPCommonUtilities, EasyListview;
type
TForm1 = class(TForm)
ELV: TEasyListview;
Memo: TMemo;
procedure FormCreate(Sender: TObject);
procedure ELVItemDblClick(Sender: TCustomEasyListview; Button: TCommonMouseButton; MousePos: TPoint; HitInfo: TEasyHitInfoItem);
procedure ELVKeyAction(Sender: TCustomEasyListview; var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
private
{ Private declarations }
public
{ Public declarations }
procedure DoOnSelectItem(SelectedItem: TEasyItem);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DoOnSelectItem(SelectedItem: TEasyItem);
begin
Memo.Lines.Add( 'Selected : ' +
SelectedItem.Captions[0] + ' ' +
SelectedItem.Captions[1]
);
end;
procedure TForm1.ELVItemDblClick(Sender: TCustomEasyListview; Button: TCommonMouseButton; MousePos: TPoint; HitInfo: TEasyHitInfoItem);
begin
if Assigned(HitInfo.Item) then
DoOnSelectItem(HitInfo.Item);
end;
procedure TForm1.ELVKeyAction(Sender: TCustomEasyListview; var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
begin
if CharCode = VK_RETURN then
if Assigned(ELV.Selected) then
DoOnSelectItem(ELV.Selected);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 0 to 25 do
with ELV.Items.Add do
begin
Captions[0] := 'COL1 - Item ' + IntToStr (I);
Captions[1] := 'COL2 - Item ' + IntToStr (I);
end;
end;
end.
Ik heb deze components zelf niet geinstalleerd en krijg die zo snel niet erin hehe, maar als je een property hebt waar de selected item in staat kan je die uitlezen en meegeven vanuit de ELVKeyAction.
Bookmarks