Mit Rechstklick Eintrag in ListBox auswählen

[Nalincah]

Ich hab folgende Situation:

Eine Listbox mit 10 Einträgen, die ein Popupmenu zugewiesen hat. Ich wähle mit der linken Maustaste den ersten Eintrag aus und klick dann mit der rechten Maustaste auf den zehnten Eintrag (Erste Eintrag immer noch ausgewählt). Wenn ich jetzt einen Eintrag im Popup-Menu anklicke, dann soll der den Eintrag auswählen, wo ich rechts geklickt hab, also den 10ten. Wie krieg ich das hin?

[Tpercon]

Schau dir dazu mal die Funktion ListBox1.ItemAtPos an.

[Nalincah]

Hab das jetzt so geschrieben:

Delphi-Quellcode:

ListBoxCatFields.ItemAtPos(Mouse.CursorPos,False);
EditCatFilter.Text := EditCatFilter.Text + ListBoxCatFields.Items[ListBoxCatFields.ItemIndex];

Klappt aber leider nicht. Hab die Sache mit Existing noch nicht ganz verstanden

[Tpercon]

Hier nen Auszug aus der OH dazu:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
var
  APoint: TPoint;
  Index: integer;
  TheObject: TControl;
begin
  if Button = mbRight then

  begin
  APoint.X := X;
  APoint.Y := Y;
  Index := ListBox1.ItemAtPos(APoint, True);
// hier müßtest du jetzt Index weiterverarbeiten

end;

[Nalincah]

Klappt leider nur teilweise:

Der holt sich zwar den Text aus der Listbox und pack ihn in das Edit, aber danach krieg ich

Delphi-Quellcode:

Listenindex überschreitet das Maximum (-1)

[Tpercon]

Poste mal deinen Code.

[Nalincah]

So klappt es:

Globale Variable:

Delphi-Quellcode:

var
  aktindex:integer;

Dann die Procedure die den Wert in aktindex reinschreibt

Delphi-Quellcode:

procedure TFrmMain.ListBoxCatFieldsMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  APoint: TPoint;
begin
  if Button = mbRight then
  begin
    APoint.X := X;
    APoint.Y := Y;
    aktindex := ListBoxCatFields.ItemAtPos(APoint, True);
  end;
end;

und dann in der Procedure vom Popupmenu hab ich einfach als Itemindex den Wert von aktindex genommen

Delphi-Quellcode:

procedure TFrmMain.Feldnamenhinzufgen1Click(Sender: TObject);
begin
  EditCatFilter.Text := EditCatFilter.Text + ListBoxCatFields.Items[aktindex];
  EditCatFilter.SetFocus;
end;

Die letzte Procedure vom Popupmenu wird nur aufgerufen wenn die Procedure MouseUp aufgerufen wird, oder?