Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: problem mit "menüanzeige"

    Delphi
    by shmia, 2. Nov 2004
  Du kannst die linke obere Ecke des Popupmenues festlegen.
  Wenn du den Sourcecode anschaust, dann siehst du, dass die linke untere Ecke von SpeedButton1 als Ausgangspunkt dient:
  procedure TForm1.SpeedButton1Click(Sender: TObject);
  var
  pt: TPoint;
  begin
  pt.x := SpeedButton1.BoundsRect.Left;
  pt.y := SpeedButton1.BoundsRect.Bottom;
  pt := ClientToScreen(pt);
  ...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: problem mit "menüanzeige"

    Delphi
    by shmia, 2. Nov 2004
  Es geht auch mit Delphi Bordmitteln:
  Setz einen Button und ein Popup-Menue auf ein Formular. Und Dann:
  procedure TForm1.SpeedButton1Click(Sender: TObject);
  var
  pt: TPoint;
  begin
  pt.x := SpeedButton1.BoundsRect.Left;
  pt.y := SpeedButton1.BoundsRect.Bottom;
  pt := ClientToScreen(pt);
  PopupMenu1.Popup(pt.x, pt.y);