دخول

Ndagor · 26-12-2025, 09:17 PM

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

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة