我将Tmeusitem增添了一个属性。怎样才能使用它。(200分)

  • 主题发起人 主题发起人 fwdll
  • 开始时间 开始时间
F

fwdll

Unregistered / Unconfirmed
GUEST, unregistred user!
我将menus.pas拷贝到了工程文件下,将TmenuItem增加了一个属性,编译了,出错。说是
[Fatal Error] Menus.pas(423): Unit Controls was compiled with a different version
of Menus.TMenu.ParentBiDiModeChanged
如果将Controls.pas添加,有回出现相类似的问题,但是这次不是Controls,而是说Control中引用的
Form,说是读到不同版本的MainMenu。请问这是怎么回事?有办法解决吗?我的目的就是
使Mainmenu下的item(Tmenuitem)有新的属性。
有什么好方法吗?
谢谢
 
把需要修改的文件剪切(一定要)到Lib目录下,然后修改,编译就不会有问题了
 
这个错误是关于你的单元中引用的,你要将所有引用的单元拷贝到统一文件夹中,然后进行
编译生成dcu单元即可。
 
把用到Menus.pas的单元复制到你的程序目录下就可以了。
建议你最好是不要更改单元的接口部分,有变通的方法就用变通的方法
 
如:
Type
TMtEdit = class(TEdit)
private
FAbout: String;
procedure SetAbout(Value: String);
public
constructor Create(AOwner: TComponent); override;
published
property About: String read FAbout write SetAbout;

implementation

constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FAbout := 'Contact me with my e-mail ...';
end;

procedure TMyEdit.SetAbout(Value: String);
begin
Value := 'Contact me with my e-mail ...';
if FAbout <> Value then
begin
FABout := Value;
invalidate;
end;
end;
 

Similar threads

D
回复
0
查看
767
DelphiTeacher的专栏
D
D
回复
0
查看
809
DelphiTeacher的专栏
D
后退
顶部