Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Gesamtbreite der Mainmenüs

    Delphi
    by Meta777, 17. Aug 2006
  Danke! Das brachte micht auf folgende Lösung:
  GetWindowRect(FParentForm.Handle, WndRect);
  
  if Application.MainForm <> nil then
  begin
  with Application.MainForm do
  GetMenuItemRect(Handle, Menu.Handle, GetMenuItemCount(Menu.Handle) - 1, R);
  CaptRect.Left := Application.MainForm.ScreenToClient(Point(R.Right, 0)).X;
  
  CaptRect.Top := GetSystemMetrics(SM_CYEDGE)+1;
• Forum: Win32/Win64 API (native code)

  Re: Gesamtbreite der Mainmenüs

    Delphi
    by Meta777, 16. Aug 2006
  Hi,
  
  hat keiner eine Idee?
  Momentan mache ich folgerndermassen:
  
  
  for j := 0 to Application.ComponentCount-1 do begin
  if Application.Components.InheritsFrom(TCustomForm) then begin
  LForm := TCustomForm(Application.Components);
  LMainMenu := LForm.Menu;
• Forum: Win32/Win64 API (native code)

  Gesamtbreite der Mainmenüs

    Delphi
    by Meta777, 15. Aug 2006
  Hallo,
  
  wie kann man die Gesamtbreite des Mainmenus ermitteln?
  Ein Versuch über GetMenuItemRect(Application.MainForm.Menu...) funktionierte nicht wenn das MainMenu eines 2. Forms in das MainMenu des Hauptforms merged, da Application.MainForm.Menu.Items.Count die gemergeten Menüs nicht berücksichtigt?
  
  Mein Vorhaben ist es den Non-Client Bereich der neben den Mainmenü ist zu zeichen (siehe...