Halte PopupMenu nach Klick auf Item offen

[mmw]

Hallo,
das 'JVCaptionpanel' aus den JEDI Komponenten-Pack wäre vielleicht auch noch eine Möglichkeit. (Code ist jetz nur kurz angedeutet.)

Delphi-Quellcode:

procedure Tmainfrm.top_panelMouseMove(Sender: TObject; Shift: TShiftState; X, Y:
    Integer);

begin
 xpos:=x;
 ypos:=y;
end;

Delphi-Quellcode:

procedure Tmainfrm.PopupMenu1Popup(Sender: TObject);

begin

if (xpos+JvCaptionPanel3.Width)>top_panel.ClientWidth then xpos:=(top_panel.ClientWidth-(JvCaptionPanel3.Width+20));

  JvCaptionPanel3.Left:=xpos;
  JvCaptionPanel3.Top:=ypos;
  JvCaptionPanel3.Show;
end;

Gruß