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