Mit Rechstklick Eintrag in ListBox auswählen

[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?