إرتفاع المكون MainMenu

[khedimaadl]

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

[Ndagor]

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

قم بتغيير 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;

[khedimaadl]

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