TListView - auf Doppelklick und Enter reagieren

[Kinimod8]

@jim_raynor:
Danke, jetzt funktioniert es.

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
 if ListView1.Selected <> nil then
  ShowMessage(ListView1.Selected.Caption);
end;

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

@marabu:
In Delphi 3 gibt es leider noch keine ActionLists, trotzdem Danke!