Delphi创建带有图像的按钮

Question

我在创建带有图像和标签的按钮时遇到问题。 这是我的代码：

类：

  type
  Folder = class(TButton)
    AName:TLabel;
    AImage:TImage;
    constructor Create(Nme:String;Path:String;Handle:TForm);
  end;

构造函数：

constructor Folder.Create(Nme:String;Path:String;Handle:TForm);
begin
  AImage:=Timage.Create(Self);
  AName:=TLabel.Create(Self);
  AImage.Parent:=Self;
  AName.Parent:=Self;
  AName.Caption:=Nme;
  AImage.Picture.LoadFromFile(Path);
end;`

还有创建此按钮的事件：

procedure TForm3.Button1Click(Sender: TObject);
  var Fld:Folder;
  begin
  Fld:=Folder.Create('It','D:\image.bmp',Form3);
  Fld.Parent:=Form3;
  Fld.Width:=100;
  Fld.Height:=100;
end;

但是当我创建此按钮时，它会导致访问冲突！我该怎么办？

Answer 1

问题：

问题是您已经声明了构造函数的自定义版本，但是您没有调用TButton类的父构造函数。

您需要像这样更改构造函数：

constructor Folder.Create(Nme: String; Path: String; Handle: TForm);
begin
  inherited Create(Handle);     // <- Add this line
  AImage := TImage.Create(Self);
  AName := TLabel.Create(Self);
  AImage.Parent := Self;
  AName.Parent := Self;
  AName.Caption := Nme;
  AImage.Picture.LoadFromFile(Path);
end;

一般建议：

您需要学习如何自己调试此类问题。

在Fld:=Folder.Create('It','D:\\image.bmp',Form3);上放置一个断点 并使用Run菜单中的“ Step Over F8 / Trace Into F7 Run逐行检查代码。

您将看到到达行AImage.Parent:=Self; 发生异常。 这是因为指向您的Folder对象的Self未正确初始化，并且不是正确的TButton后代。

您需要学习如何做到这一点，以进一步使用Delphi进行开发，并且您很快就能自己解决此类问题。

---

另外，如果您需要为Delphi编写自定义组件，请花一些时间来了解有关组件工作方式和使用方式的更多信息。 我将建议以下有关组件编写的指南：

• 官方组件编写者指南
• Ray Konopka的组件构建简介

---

另请参阅有关Delphi编码样式的指南。

乍一看：

• 类名应以T开头
• 类字段应以F而不是A开头
• constructor应位于公共部分，字段应为private或protected
• 您应该在参数周围，声明中的变量之后和运算符周围使用空格