Thema: Delphi Popup irgendwo

Einzelnen Beitrag anzeigen

ozz

Registriert seit: 26. Jun 2005
131 Beiträge
 
#3

Re: Popup irgendwo

  Alt 2. Apr 2006, 21:36
Hallo ste_ett,
danke für den Tipp. Leider ist dies genau das gleiche Ergebniss.Ist vieleicht der Fehler in meinem Code?

Danke

Delphi-Quellcode:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var coordinate,coordinate1:TPoint;
begin
 coordinate.X:=x;
 coordinate.Y:=y;
 coordinate1:=ClientToScreen(coordinate);
 if Button= mbRight then PopupMenu1.Popup(coordinate1.X,coordinate1.Y);
end;
  Mit Zitat antworten Zitat