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

最新推荐文章于 2024-05-17 13:34:03 发布

pzdnzj

最新推荐文章于 2024-05-17 13:34:03 发布

阅读量1k

点赞数

分类专栏： delphi 文章标签： delphi5从入门到精通

本文链接：https://blog.csdn.net/pzdnzj/article/details/99618254

版权

本文介绍了在Delphi中如何传递和复制对象。通过示例代码展示了如何使用`Application.CreateForm`创建对象的副本，以及如何根据组件类型动态创建新对象。重点在于理解对象引用和内存中的实际对象。

摘要由CSDN通过智能技术生成

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 }