Delphi 動態創建控件，賦值，使用

最新推荐文章于 2023-07-27 21:17:17 发布

原创最新推荐文章于 2023-07-27 21:17:17 发布 · 724 阅读

0 ·

CC 4.0 BY-SA版权

DELPHI 专栏收录该内容

31 篇文章

订阅专栏

本文介绍了如何在Delphi中定义并创建一个自定义组件TMyComponent，该组件包含六个字符串属性，并通过不同构造函数过载实现灵活初始化。此外，还展示了如何将此组件实例与ComboBox控件结合使用。

uses

中定義：

type
TMyComponent = class(TComponent)
public
    item1, item2, item3, item4, item5, item6: string;
    constructor Create(Owner1: TComponent; s1: string); overload;
    constructor Create(Owner1: TComponent; s1, s2, s3: string); overload;
    constructor Create(Owner1: TComponent; s1, s2, s3, s4, s5, s6: string); overload;
end;

定義過程：

{ TMyComponent }

constructor TMyComponent.Create(Owner1: TComponent; s1: string);
begin
inherited Create(Owner1);
item1 := s1;
item2 := item1;
item3 := item1;
item4 := item1;
item5 := item1;
item6 := item1;
end;

創建控件：

ComboBoxLine.Items.AddObject(FieldByName('SectionName').AsString, TMyComponent.Create(Self, FieldByName('SectionDetail').AsString));

使用：

ComboBoxLine.Items.Objects[i] as TMyComponent).item1