TListView - auf Doppelklick und Enter reagieren

[jim_raynor]

Zitat von Kinimod8:

Delphi-Quellcode:

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = VK_RETURN then
  ShowMessage(ListView1.Selected.Caption);
end;

Da solltest du auch noch das if <>nil einbauen oder rufst alternativ die OnDblClick-Prozedur auf:

ListView1DblClick(Sender)