إرتفاع المكون MainMenu - نسخة قابلة للطباعة

إرتفاع المكون MainMenu - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إرتفاع المكون MainMenu (/showthread.php?tid=13024)

إرتفاع المكون MainMenu - khedimaadl - 25-12-2025

السلام عليكم ورحمة الله وبركاته
كيف أستطيع تغيير إرتفاع المكون: MainMenu في الدلفي
شكرا مسبقا

RE: إرتفاع المكون MainMenu - Ndagor - 26-12-2025

سلام
بالنسبة للقائمة الاساسية الافقية هذا غير ممكن الارتفام تتحكم فيه الوندوز و لادخل للدالفي فيه .. اما تعديل باقي عناصر القوائم فهذاممكن من خلال تغيير دالة حساب الارتفاع..

قم بتغيير OwnerDraw الى True
ثم ضع الكود التالي اعى Unit قبل فوق TForm1

كود :
TMenuItem= class(Menus.TMenuItem)
 protected
   procedure MeasureItem(ACanvas: TCanvas; var Width, Height: Integer); override;
 end;
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Edit: TMenuItem;
    Redo: TMenuItem;
...
  end;

var
  Form1: TForm1;

implementation


{ TMenuItem }

procedure TMenuItem.MeasureItem(ACanvas: TCanvas; var Width,
  Height: Integer);
begin
  inherited;
  Height:= 30;
end;

RE: إرتفاع المكون MainMenu - khedimaadl - 27-12-2025

شكرا لك على الاهتمام، لكن ما كنت أبحث عنه لم أجده وهو ما قلت عنه أنه لا يمكن
بارك الله فيك