TListView - auf Doppelklick und Enter reagieren

[marabu]

Hallo Dominik,

füge deiner Form eine ActionList zu, wenn du das noch nicht gemacht hast. Im ActionListEditor definierst du dann eine ListOpenAction mit dem ShortCut "Enter" und der Caption "Open", der du deinen Code zum Öffnen des Berabeitungsdialogs zuweist. Jetzt musst du noch deiner ListView ein PopupMenu zuordnen und darin einem neuen Item die ListOpenAction. Im Event-Handler für ListView.OnDoubleClick rufst du dann ListOpenAction.Execute auf und damit du nicht erst im Action-Code überprüfst, ob überhaupt ein Item selektiert ist, machst du diese Überprüfung in der OnIdle-Routine deiner Application, die du im FormCreate initialisierst:

Delphi-Quellcode:

procedure TDemoForm.AppIdle(Sender: TObject; var done: boolean);
begin
  ListOpenAction.Enabled := Assigned(ListView.Selected);
end;

Grüße vom marabu