السلام عليكم ورحمة الله،
أحاول أن أضيف Property اسمها OtherCaption إلى ال MenuItem إللي داخل الـ MainMenu وحاولت كتير ومش زابطة، أرجو المساعدة
unit MdMainMenu;
interface
uses
SysUtils, Classes, Menus;
type
TMdMenuItem = class(TMenuItem)
private
FOtherCaption : String;
Procedure SetOtherCaption(Value : String);
Public
Constructor Create (AOwner : TComponent); override;
Published
Property OtherCaption : String Read FOtherCaption Write SetOtherCaption;
end;
TMdMainMenu = class(TMainMenu)
private
{ Private declarations }
FItems : TMdMenuItem;
Procedure SetMenuItems(Value:TMdMenuItem);
protected
{ Protected declarations }
public
{ Public declarations }
Constructor Create (AOwner : TComponent); override;
published
{ Published declarations }
property Items: TMdMenuItem read FItems write SetMenuItems;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Md', [TMdMainMenu]);
end;
{ TMdMenuItem }
constructor TMdMenuItem.Create(AOwner: TComponent);
begin
inherited; Create(Aowner);
end;
procedure TMdMenuItem.SetOtherCaption(Value: String);
begin
FOtherCaption := Value;
end;
{ TMdMainMenu }
constructor TMdMainMenu.Create(AOwner: TComponent);
begin
inherited; Create (AOwner);
end;
procedure TMdMainMenu.SetMenuItems(Value: TarqMenuItem);
Begin
if Assigned(Value) then
Value := FItems;
end;
end.