eigenes Popup-Menü durch gedrückte Maustaste

[shmia]

Hier mal ein Beispiel, wie man zur Laufzeit Popup-Menues aufbauen und anzeigen kann:

Delphi-Quellcode:

var
   i : Integer;
   s : string;
   mi : TMenuItem;
begin
   PopupMenu1.Items.Clear;

   for i := 1 to 7 do
   begin
      s := DateTimeToStr(Date + i);
      mi := TMenuItem.Create(Self);
      mi.Caption := s;
      mi.OnClick := MenuClick;
      PopupMenu1.Items.Add(mi);
   end;

   PopupMenu1.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
end;