这是答应QQ群“Delphi之幽冥魔焰2”要写的东西。今天终于心平气和，能够做点事情了。
我们的开发中可能会遇到这样一个问题，比如我的窗体已经写好了，但是突然变更了需求，导致希望某个窗体的可视控件拥有一个新的功能，以便操作。例如我的窗体上有很多个Image控件，此时需要每个Image都有一个Filename属性，以便记录这些Image中的图片来源。通常有两种做法，一是自己再写一个拥有此项属性的Image控件，注册到IDE中，然后重新修改原来设计好的窗体；另外一个办法就是单独设置变量来记录这些Filename和他们对应的Image，这种方法只需要改动代码，而不需要修改界面，可是这些数据管理起来又很麻烦。那么下面我就要隆重介绍一下新的办法了。既不需要重新修改界面，又能让TImage具有Filename属性。直接给代码，然后大家去试一下。呵呵。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
TImage = class(ExtCtrls.TImage)
public
FileName: string;
end;
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.FileName := 'c:\123.bmp';
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
ShowMessage(Image1.FileName);
end;
end.
其操作顺序是，先设计好窗体，也就是窗体上首先存在一个标准的TImage控件（这样符合上述问题的需求）。然后运行代码。一切如我们所愿。
基本原理是依赖于变量和类的作用域规定，也就是说，在上述例子单元中的Unit1.TImage类声明拥有最高优先级。所以代码在分析和创建TImage时，是按照Unit1.TImage创建的。但是另外一个问题，界面设计器明明使用的是ExtCtrls.TImage。没错，但是需要注意的是，编译器只是按照代码进行编译（dfm文件，dpr文件，pas文件等），而不会关心你再界面设计器上的操作过程，所以，虽然你再界面上放的是ExtCtrls.TImage，但是当持久化到dfm里以后，他仅仅是保存为TImage，于是编译器按照优先级高低，首先匹配了Unit1.TImage。于是我们的代码运行正常。
声明：以上内容纯属本人无验证推理过程。相信者，一切后果自负。哈哈。
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。