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ß