Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#3

AW: OnPopupMenu:= Image1.OnPopupMenu;

  Alt 19. Mär 2011, 00:55
Bist Du Moderator hier Kümmerst Du um deine Sachen (Tipp)

Ich musste in Event ContextMenu den Code eingeben :
Delphi-Quellcode:
procedure TForm1.ImageContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
var
  Pt: TPoint;
begin
Pt:= Mouse.CursorPos;
getCursorPos(pt);
PopUpMenu1.Popup(pt.x,pt.y);

end;
funktioniert aber ist ein Lange weg ! Gibt es keinen Trick ?

Geändert von thomas2009 (19. Mär 2011 um 01:31 Uhr)
  Mit Zitat antworten Zitat