Buttonmenü á la Rechtsklick

[1PM]

Hallo zusammen!

Gibt es eine Möglichkeit ein Untermenü für Buttons zu machen, wie wenn man Rechts z.B. auf eine Datei klickt?

Vielen Dank im voraus!

Gruß
1PM

[Christian Seehase]

Moin 1PM,

ja gibt's (falls ich Dich richtig verstanden habe).
Das ganze nennt sich PopUpMenu, und kann einem Button als Eigenschaft zugeordnet werden (siehe OI).

[1PM]

Vielen Dank Chris! :hello:

[1PM]

Jetzt gibt es nur noch ein Problem:

Wie öffnet sich es am Button?

Ich habe mich dem Beispiel aus der Hilfe bedient:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu1.AutoPopup := False;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin
  PopupMenu1.Popup(X, Y);
end;

Allerdings öffnet er es oben, kurz unter der Titelleiste.
Das Formular, auf dem das PopupMenu geöffnet wird ist MDIChild.

Vielen Dank im voraus!

Gruß
1PM

[Wormid]

Hast Du das Menü dem Formular oder dem Button zugeordnet?
(Die Eigenschaft lässt sich über den OI editieren!)


Gruß

Wormid

[Marco Haffner]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu1.AutoPopup := False;
  Button1.PopupMenu := PopupMenu1;
  Button1.OnClick := Button1Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  if (Sender is TButton) then
  with TButton(Sender) do
  begin
    P.X := Left;
    P.Y := Top + Height;
    P := Self.ClientToScreen(P);
    PopupMenu.Popup(P.X, P.Y);
  end;
end;

[Christian Seehase]

Moin 1PM,

probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbRight then exit;
  PopupMenu1.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y);
end;