Gesamtbreite der Mainmenüs

[Meta777]

Hi,

hat keiner eine Idee?
Momentan mache ich folgerndermassen:

Delphi-Quellcode:

for j := 0 to Application.ComponentCount-1 do begin
  if Application.Components[j].InheritsFrom(TCustomForm) then begin
    LForm := TCustomForm(Application.Components[j]);
    LMainMenu := LForm.Menu;
    if LMainMenu <> nil then begin
      for i := 0 to LMainMenu.Items.Count-1 do begin
        GetMenuItemRect(LForm.Handle, LMainMenu.Handle, i, MenuRect);
        Inc(XMenu, (MenuRect.Right - MenuRect.Left)-4);  //-4 muss sein - warum auch immer
      end;
    end;//if MainMenu found
  end;//if Component is CustomForm
end;

Allerdings scheint dies "ungenau" zu sein (-4 beim Inc), aber auch bei mehreren Instanzen eines MDI Child wird momentan nicht geprüft ob dessen menu schon mit berechnet wurde. Auch bei nicht gemerten Menus gäbe es hier Probs, und auch wenn ein Form nicht Application als Owner hat (nicht in Application.Components ist)!

Also falls jemand noch eine Idee hat, wie man das richtig macht - Bitte posten!

Shalom