客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
一， 示例一，理解对象的引用：我们要搞清楚进行对象赋值的两个不同概念， 其一，是使用赋值操作符（：=）将一个对象的引用赋值给一个对象变量，产生的效果是 这两个变量指向的是同一个对象。其二，使用Assign或AssignTo方法可以将对象属性进行复制， 得到两个状态完全一样的两个对象。
View Code
unit Unit2;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) BtnSet: TButton; dlgFont1: TFontDialog; mmo1: TMemo; BtnUndo: TButton; procedure BtnSetClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BtnUndoClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.BtnSetClick(Sender: TObject); begin if dlgFont1.Execute then mmo1.Font:=dlgFont1.Font; end; procedure TForm2.BtnUndoClick(Sender: TObject); begin mmo1.Font:=dlgFont1.Font; //字体不会还原，因为两者是同一个对象。 end; procedure TForm2.FormCreate(Sender: TObject); begin mmo1.Lines.Add('一个可以任意设置字体和复原字体的例子'); dlgFont1.Font:=mmo1.Font; //这里dlgFont1.Font只是复制了mmo1.font的对象引用 dlgFont1.Font ，mmo1.Font 指向的是同一个对象 ; end; end.
示例二，应用了对象复制
View Code
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) BtnSet: TButton; dlgFont1: TFontDialog; mmo1: TMemo; ForginalFont:TFont; BtnUndo: TButton; procedure BtnSetClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BtnUndoClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.BtnSetClick(Sender: TObject); begin if dlgFont1.Execute then mmo1.Font:=dlgFont1.Font; //dlgFont1的font对象属性发生改变之后，赋值给mmo1.font控制字体样式 end; procedure TForm2.BtnUndoClick(Sender: TObject); begin mmo1.Font.Assign(ForginalFont); //将 ForginalFont 赋值给mmo1.Font end; procedure TForm2.FormCreate(Sender: TObject); begin mmo1.Lines.Add('一个可以任意设置字体和复原字体的例子'); ForginalFont:=TFont.Create; //这里我们创建了font对象ForginalFont来保存还原的字体属性，而不只是引用 ForginalFont.Assign(mmo1.Font); //将创建的font对象，复制给mmo1.font一份 end; end.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论