您的位置:首页 > 编程语言 > Delphi

delphi传递与复制对象(DELPHI5从入门到精通75页)

2020-02-16 12:50 225 查看

var
Button2:Tbutton;
begin
Button2 := button1;
这段代码没有建立一个新对象,而是建立了对内存中同一个对象的引用。内存中只有1个对象,而Button1,Button2变量都引用它。如果将对象作为参数传递给函数也是一样,没有建立新对象,而是在代码的两个不同位置引用了同一个对象。

我们可以查询组件的类(sender.classtype),然后使用类引用建立该类型的新对象。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
CheckBox1: TCheckBox;
Label2: TLabel;
Button2: TButton;
Edit1: TEdit;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure Button1Click(Sender: TObject);
procedure ClickComp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sende

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: