我在Form1添加一个Edit1控件(设置好界面和相应功能),现在我在Form2内也添加一个与Form1.Edit1一样的控件MyEdit,我想知道如何让Form2.MyEdit继承Form1.Edit1的所有界面和功能,并且当我修改Form1.Edit1后,相应Form2.MyEdit也自动修改,请问在D7上如何实现?请指教,谢谢!
解决方案 »
- 高分求解!delphi调用.net webservice
- 请问用Outlook := GetActiveOleObject('Outlook.Application');调用outlook 提'示尚未调用coinitialize',请指教
- 急需文件合并,分割源码?90分(不够再加)
- 关于ShellListView控件的一系列问题
- 如何在Listview的Report形式中增加“序号”列
- 如何在openDialog中分别取得文件路径和文件名!(在线等)
- 请问在 delphi 中怎么使用自己定义的鼠标!
- 请问如何才能获得系统有几个驱动器?
- 关于控件数组请教
- 请问可以用Delphi开发一个控件然后拿给VB用吗?
- DES加密的结果是否可能包括空(0x00) ?
- delphi5和delphi6和delphi7可以同时装在一台机器上吗?
如果不是,那就干脆写一个过程,在两个对象之间一句一句地赋值吧。
下面是TStringList的Assign方法克隆对象的实际演示:var
SS1, SS2: TStringList;procedure TForm1.Button2Click(Sender: TObject);
var
I : integer;
begin
if SS1=nil then SS1 := TStringList.Create;
SS1.Text := '第一行'#10'第二行'#10'第三行'; if SS2=nil then SS2 := TStringList.Create;
SS2.Assign(SS1);////克隆 SS1.Text := 'SS1改变'#10'不影响SS2'#10'可见SS1与SS2是指向不同对象的指针';
//此时SS1改变,如果想让SS2再次克隆SS1,只需重新运行Assign方法
for I := 0 to 2 do
Showmessage(SS1[I]);
for I := 0 to 2 do
Showmessage(SS2[I]); FreeAndNil(SS2);
FreeAndNil(SS1);
end;