通过扩展组件的类来设计组件的样式

发布于 2024-10-26 08:46:07 字数 622 浏览 2 评论 0原文

我只是在想，如果我为我正在样式化的项目创建一个后代类会怎么样。

例如（请原谅糟糕的代码，不是在 ide 中，但你应该明白我的意思）

TStyledButton = class(TButton)
  public 
     constructor Create; //This overrides the main TButton
end;

constructor TStyledButton.Create;
begin
   inherited;
   self.Color := clRed;
end;

然后在我的表单中，我只是将 Button1 作为 TStyledButton 代替。

这将删除表单 create 中用于处理设置样式/调用函数来设置样式的所有额外代码。

唯一的问题是，这将如何在设计视图中进行，我是否必须注册这个对象（组件？），以便它实际上像往常一样显示在设计视图中。

原文

From this question Passing object in reference / one place to style objects

I was just thinking, what about if I created a descendant class for the item I am styling.

eg (excuse the poor code, not in ide, but you should get what I mean)

TStyledButton = class(TButton)
  public 
     constructor Create; //This overrides the main TButton
end;

constructor TStyledButton.Create;
begin
   inherited;
   self.Color := clRed;
end;

Then in my form I just have the Button1 as a TStyledButton instead.

This would remove all extra code in the form create to handle setting styles/calling function to set styles.

The only issue is, how would this go down in the design view, will I have to register this Object (component?) so it actually shows up as usual in design view.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

将军与妓 2024-11-02 08:46:07

当您了解 Delphi 包组件编写器时，您可以使用 IDE Expert 创建新组件在创建新的设计时包时自动将其添加到组件选项板：

首先使用 IDE 专家在组件/新组件中创建它：

新组件

出现提示时，选择安装到新包

提供包（文件）名称和描述

包名称

瞧！，您的调色板中已经有了新组件：

Componentinstalled

试试这个代码：

  TMyButton = class(TButton)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation
uses Graphics;

{ TMyButton }

constructor TMyButton.Create(AOwner: TComponent);
begin
  inherited;
  Font.Style := [fsBold];
  Caption := 'Click me!';
end;

您会得到这个：

< img src="https://i.sstatic.net/usiBo.png" alt="我的按钮！">

While you learn about Delphi packages component writers, you can use the IDE expert to create a new component automatically add it to the component palete while creating a new design time package:

Start by creating it using the IDE expert in Component/New component:

New component

When prompted, select Install to new package

New package

Provide the package (file) name and description

Package name

and voila!, you have your new component in your palette:

Component installed

Try this code:

  TMyButton = class(TButton)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation
uses Graphics;

{ TMyButton }

constructor TMyButton.Create(AOwner: TComponent);
begin
  inherited;
  Font.Style := [fsBold];
  Caption := 'Click me!';
end;

You'll get this:

My Button!