Breite eines PopUpMenüs ermitteln

[sh17]

Wie kann man die Breite und Höhe eines Popupmenus ermitteln, die es geöffnet auf dem Bildschirm einnimmt?

[chrisw]

Die Eigenschaft OwnerDraw des PopUpMenus auf True;
In einem der MenuItems das Ereignis OnMeasureItem abfragen, dort ist Width und Height abgreifbar ! Height * Anzahl Items ergibt die Gesamthöhe !

[sh17]

leider ist es da schon zu spät, da ich vor dem Popup wissen muss, wie Breit es wird. dementsprechend soll der Popuppunkt angepasst werden

[chrisw]

Versuch mal das (Allerdings nicht getestet)
Mglw müssen da noch ein paar Pixel dazu !
[EDIT] Überarbeitete Version !

Delphi-Quellcode:

function GetPopUpMenuWidth(PopUpMenu : TPopUpMenu; Canvas : TCanvas) : Integer;
var i : Integer;
    LongestCaption : Integer;
begin
  LongestCaption := -1;
  Result := 0;
  for i := 0 to PopUpMenu.Items.Count -1 do
  if  LongestCaption < length(TMenuItem(PopUpMenu.Items[i]).Caption) then
  begin
    LongestCaption := length(TMenuItem(PopUpMenu.Items[i]).Caption);
    Result := Canvas.TextWidth(TMenuItem(PopUpMenu.Items[i]).Caption );
  end;
end;

function GetPopUpMenuHeight(PopUpMenu : TPopUpMenu; Canvas : TCanvas) : Integer;
begin
  Result := 0;
  if PopUpMenu.Items.Count > 0 then
  Result := Canvas.TextHeight(PopUpMenu.Items[0].Caption) + 21 * PopUpMenu.Items.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(Inttostr(GetPopUpMenuWidth(PopUpMenu1,Canvas)));
  showmessage(Inttostr(GetPopUpMenuHeight(PopUpMenu1,Canvas)));
end;

[marabu]

Hallo Sven,

Zitat:

Zitat von sh17

leider ist es da schon zu spät, da ich vor dem Popup wissen muss, wie Breit es wird. dementsprechend soll der Popuppunkt angepasst werden

an was willst du denn dein MenuItem anpassen? An die Breite des PopupMenus? Windows selbst berechnet die Breite und Höhe des Menüs aus den Captions (a) direkt vor dem ersten rendering und (b) nochmal, falls inzwischen items geändert wurden. Die Breite erfährst du frühestens hinterher. Wozu solltest du die auch brauchen?

Grüße vom marabu

[sh17]

schau euch mal die Bilder im Anhang an. das popupmenu erscheint, wenn ich auf den Button klicke per PopUp(x,y)

2. Bild (aufnahme1) ist optimal, weil das Fenster am rechten Bildschirmrand klebt

verschiebe ich das fenster nach links kommt der Zustand im 1. Bild (aufnahme2) zustande. Das sie blöd aus

ich brauch die Breite des Popupmenus, damit ich immer das richtige x berechnen kann.

Mit der Höhe klappt es schon. (9 + Item.Count*19)

[marabu]

Wenn du dein PopupMenü grundsätzlich am rechten Fensterrand ausrichten willst, dann kannst du auch PopupMenu.Alignment auf paRight setzen...

marabu

[sh17]

sag das doch gleich :-D
aber viele Wege führen nach Rom, meine in eine Sackgasse