DropDownMenu beim TToolButton auch mit norm. klick öffnen

[phlux]

Hallo!
Ich habe einen TToolButton in eine TToolBar gesetzt und den Style auf tbsDropDown umgeändert, wenn ich jetzt auf das Dreieck klicke öffnet sich das in der Eigenschaft DropDownMenu angegebene PopUp, wenn ich jedoch normal auf den Button klicke tut sich nichts. Habe auch schon versucht im Event OnMouseUp, das Menu mit PopUp(X,Y) zu öffnen, das wird dann aber an einer total falschen stelle geöffnet o:O, kann mir jemand helfen??

[MrSpock]

Hallo Phlux,

wenn du im Objektinspektor der OnClick Methode denselben Eintrag auswählst, wie bei MenuItem.OnClick ausgewählt ist, funktioniert's.

[phlux]

Irgendwie steig ich nicht durch bei deiner Erklärung, ausserdem habe ich die OnClick Prozedur wie folgt gestaltet:

Code:

procedure TMainForm.DoZoom(Sender: TObject);
Var Item: String;

begin
  Item := (Sender AS TMenuItem).Name;
  try
    If Item = 'N1001' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 1.00
    else if Item = 'N901' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.90
    else if Item = 'N801' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.80
    else if Item = 'N701' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.70
    else if Item = 'N601' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.60
    else if Item = 'N501' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.50
    else if Item = 'N401' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.40
    else if Item = 'N301' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.30
    else if Item = 'N201' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.20
    else if Item = 'N101' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.10;
  except
    //Do nothing
  end;
end;

Heißt jedes MenuItem ruft die Procedure DoZoom auf, wenn ich jetzt beim Button das Event auch auf OnClick setzte kriege ich "ungültige Typumwandlung". Ich will einfach nur, dass das Menu aufpoppt wenn ich auf den Button klick

[Sebastian Nintemann]

Du kannst ja auch einfach (wie du schon versucht hast) PopUp aufrufen, du musst ja nicht das X und Y aus dem MouseUp Event nutzen. So könntest du die richtige Position für das Popup herausfinden:

Code:

var
  Point : TPoint;
begin
  Point.X := ToolButton.Left;
  Point.Y := ToolButton.Top+ToolButton.Height+2;  //Position wo das PopUp auf deiner Form aufklappen soll, +2 weil es (zumindest bei mir) immer etwas tiefer aufklappt

  Point := ClientToScreen(Point);  //weil PopUp() Bildschirmkoordinaten erwartet
  DropDownPopUp.PopUp(Point.X,Point.Y)  //und aufklappen
end;

Deine procedure kannst du übrigens so verkürzen:
Ein menuItem hat die Eigenschaft Tag vom Typ integer, die der Programmierer nutzen kann wie er will, sie bewirkt also nichts wenn man sie nicht irgendwie nutzt. Setzt du nun diese Eigenschaft deiner Items auf 10,9,8...1 dann kannst du statt der if then else Abfragen einfach schreiben:

Code:

  WebBrowser.OleObject.Document.Body.Style.Zoom := (Sender as TMenuItem).Tag / 10;

Ist mit nur so eingefallen, so wie dus hast funktionierts natürlich auch

Alles nicht überprüft, also ohne Gewähr

[edit] ToolButton und DropDownPopUp musst du natürlich durch den Namen deiner Komponenten ersetzen [/edit]

Gruß, Sebastian

[phlux]

Zitat von Grotesquery:

Deine procedure kannst du übrigens so verkürzen:
Ein menuItem hat die Eigenschaft Tag vom Typ integer, die der Programmierer nutzen kann wie er will, sie bewirkt also nichts wenn man sie nicht irgendwie nutzt. Setzt du nun diese Eigenschaft deiner Items auf 10,9,8...1 dann kannst du statt der if then else Abfragen einfach schreiben:

Code:

  WebBrowser.OleObject.Document.Body.Style.Zoom := (Sender as TMenuItem).Tag / 10;

Ja danke, für Tipps die die Arbeit verkürzen bin ich immer dankbar . Auch die Idee mit TPoint ist gut, werd ich gleich umsetzen, THX!