ListBox Problem

[d3zemb3r]

Zitat von DeddyH:

Ich bin nicht sicher, ob es einfacher geht, aber beim Rechtsklick der Listbox könnte man sich den Listeneintrag an der Mausposition merken.

Delphi-Quellcode:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var CurrIndex: integer;
begin
  if Button = mbRight then
    begin
      CurrIndex := Listbox1.ItemAtPos(Point(X,Y),true);
      if CurrIndex > -1 then
        //CurrItem ist ein privates String-Feld von Form1
        CurrItem := Listbox1.Items[CurrIndex]
      else
        CurrItem := '';
    end;
end;

hmmm. also das ruft jetzt was auf??
Ich will folgendes.
Wenn ich im popup menu auf aufrufen klicke das der text aus dem makierten listox eintrag in ein edit geht