PopUpMenu bei Listbox

[Jay15688]

Hallo Leute!

Bin sowohl hier im Forum, als auch in Delphi generell absoluter Neuling...

Bin im Moment ein eigenes Programm am entwickeln, das eine Listbox enthält! Würde gerne ein Rechtsklick-Menü in die ListBox einbauen! Habe also in Delphi folgenden Code in die ListBox geschrieben:

Zitat:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
cursorpos : TPoint;
ndx : integer;
begin
if Button=mbRight then
begin
cursorpos.X := X;
cursorpos.Y := y;
ndx := ListBox1.ItemAtPos(cursorpos,true); // Item unter dem Cursor
if (ndx <> -1) then
begin
with (Sender As TListBox) do
begin
Selected[ndx] := True;
cursorpos := ClientToScreen(cursorpos); // Positionsanpassung
PopupMenu1.Popup(cursorpos.x + Left,cursorpos.Y + Top);
end;
end;
end;
end;

Allerdings kommt immer wieder der Fehler: Undeclared Identifier: PopUpMenu1

Habe auch versucht oben unter "type" PopupMenu1: TPopupMenu; zu schreiben, was aber auch nichts bringt..dann kommt eine Meldung, dass er keinen "corresponding component" hat...

Würde mich freuen, wenn mir da einer so helfen kann, dass es auch ein blutiger Noob wie ich hinbekommt

Thx im Vorraus


MfG Jay