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