Delphi制作数据感知控件之浮想联翩(5)

我们实现的效果是要求：在属性编辑浏览器中出现一项About属性，右侧显示：（About）… 点击“…”按钮弹出一个对话框。

下面我们开始新建一个Package，按照命名规则起名：MyDataEditDsgn60.Dpk，然后新建一个Form,作为About对话框，我们可以根据需要自行设计界面。我们新建一个类TAboutEditor使其从TPropertyEditor下继承过来：

TAboutEdit = class(TPropertyEditor)

FFrmAbout: TfrmAbout;

function GetAttributes: TPropertyAttributes;override;

function GetValue: string;override;

procedure Edit;override;

end;

注意：将全局的Form变量删掉，重新在TAboutEdit类中声明一个新的私有变量。

覆盖Edit函数：

procedure TAboutEdit.Edit;

begin

FFrmAbout := TfrmAbout.Create(Application);

FFrmAbout.ShowModal;

FFrmAbout.Free

end;

用来创建销毁窗体对象。

覆盖GetAttributes函数：

function TAboutEdit.GetAttributes: TPropertyAttributes;

begin

Result := [paDialog,paReadOnly];

end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有