Bei wählen eines Listboxitem eine Aktion?

[FordPerfekt]

Hi,

Ich habe eine Listbox, in die ich per Drag'n'Drop Bilder einfüge.

Ich möchte nun eine kleine Vorschau des Bildes haben, welches ich anklicke!

Bis jetzt hab ich diese Lösung:

Man klickt mit der rechten Maustaste auf den Eintrag, daraufhin öffnet sich ein PopupMenu und man kann "View" auswählen.

Wie kann ich es machen, dass man sowohl wenn ich mit der Maus etwas anklicke, als auch, wenn ich einfach mit den Pfeiltasten die Liste durchgehe, den ItemIndex bekomme?


mfg
Ford

[messie]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(ListBox1.ItemIndex));
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #38) or (Key = #40) then //Pfeiltasten
  begin
    ShowMessage(IntToStr(ListBox1.ItemIndex));
  end;
end;

Grüße, Messie

[marabu]

Hallo,

es ist völlig egal, ob das Item über Maus oder Tastatur ausgewählt wird - es wird immer das Ereignis OnClick() ausgelöst:

Delphi-Quellcode:

procedure TDemoForm.ListBoxClick(Sender: TObject);
begin
  with Sender as TListBox do
    ShowMessage(IntToStr(ItemIndex));
end;

Grüße vom marabu