rechtsklick auf form --> popupmenu

[passsy]

ich will bei einem rechtsklick auf meine form das ein popupmenu erscheint aber ich hab keine ahnung wie die procedure aussehen soll bei der SysTray gibts WMTASKBAREVENT und da kann ich mit WM_RBUTTONDOWN die procedure schreiben aber bei der form tapp ich im dunkeln...

[dataspider]

Hi,

ich würde erst mal das Published Property PopupMenu des Formulares vorschlagen (OI).

Cu, Frank

[mkinzler]

Du mußt den Rechtsklick über der Form abfangen und dann eine Popupmenü öffen. (TPopupMenu/ .Popup())

[passsy]

ja das mit dem abfangen hab ich mir schon gedacht aber wie kann ich gucken ob man auf der form rechtsklickt oder woanders?

Delphi-Quellcode:

procedure TForm1.???(Sender: TObject);
 var
  point:Tpoint;
 begin
  GetCursorPos(point);
  popupmenu1.Popup(point.x, point.y);
 end;

??? weiß ich nich^^

bin auch für andere lösungen offen hauptsache es geht^^

[mkinzler]

Im Event .onMouseDown Abfragen ob rechte Taste gedrückt wurde (

Delphi-Quellcode:

if [ssRight]
 in Shift then ...

)

[passsy]

das versteh ich jetzt nich

[pilic]

Hi,

OnMouseDown

Delphi-Quellcode:

procedure TForm1.mdown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight
    then
      popupmenu1.popup(Left+x,Top+y);
end;

[Edit]Noch besser ist es, wenn das PopupMenu auch wirklich am Cursor ist[/Edit]

[Matze]

Kann man das nicht einfach, indem man ein TPopupMenu auf's Formular zieht und das im Objektinspektor mit diesem verknüpft? Ich denke, das meint auch dataspider. Oder hat das irgendwelche Nachteile, weil ihr etwas kompliziertere Lösungen vorschlagt?

[passsy]

Delphi-Quellcode:

procedure Tsession.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 point:Tpoint;
begin
if Button=mbRight then
 begin
  GetCursorPos(point);
  PopupMenu1.Popup(point.x, point.y);;
 end;
end;

so läufts jetzt bei mir und ich bin glücklich danke jungs

[pilic]

Normalerweise geht das genauso gut im OI. Aber man kann die Position anpassen, wenn man es "umständlich" macht. Außerdem hab ich wohl den Tip von dataspider übersehen und den von mkinzler hat er ja nicht verstanden.