Delphi Popup irgendwo - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Popup irgendwo

Ein Thema von ozz · begonnen am 2. Apr 2006 · letzter Beitrag vom 2. Apr 2006

Antwort

ozz

Registriert seit: 26. Jun 2005
131 Beiträge

Re: Popup irgendwo

2. Apr 2006, 20:36

Hallo ste_ett,
danke für den Tipp. Leider ist dies genau das gleiche Ergebniss.Ist vieleicht der Fehler in meinem Code?

Danke

markieren

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;