• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi类引用示例

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

相关资料:

https://jingyan.baidu.com/article/bad08e1e2ec23b09c9512148.html

 

实例代码:

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 7   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 8 
 9 type
10   TControlClass = class of TControl;
11 
12   TForm1 = class(TForm)
13     RadioGroup1: TRadioGroup;
14     procedure FormCreate(Sender: TObject);
15     procedure RadioGroup1Click(Sender: TObject);
16     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
17       Shift: TShiftState; X, Y: Integer);
18   private
19     { Private declarations }
20   public
21     { Public declarations }
22   end;
23 
24 var
25   Form1: TForm1;
26 
27 implementation
28 
29 {$R *.dfm}
30 var
31   CtlClassRef: TControlClass;
32 
33 procedure TForm1.FormCreate(Sender: TObject);
34 begin
35   RadioGroup1.Width := 400;
36   RadioGroup1.Columns := 3;
37   RadioGroup1.Items.Add('Button');
38   RadioGroup1.Items.Add('Edit');
39   RadioGroup1.Items.Add('Checkbox');
40   RadioGroup1.ItemIndex := 0;
41   CtlClassRef := TButton;
42 end;
43 
44 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
45   Shift: TShiftState; X, Y: Integer);
46 var
47   NewCtrl: TControl;
48 begin
49   NewCtrl := CtlClassRef.Create(Self);
50   NewCtrl.Name := CtlClassRef.ClassName + IntToStr(Self.ControlCount);
51   NewCtrl.Parent := Self;
52   NewCtrl.Left := X;
53   NewCtrl.Top := Y;
54 end;
55 
56 procedure TForm1.RadioGroup1Click(Sender: TObject);
57 begin
58   case RadioGroup1.ItemIndex of
59     0: CtlClassRef := TButton;
60     1: CtlClassRef := TEdit;
61     2: CtlClassRef := TCheckBox;
62   end;
63 end;
64 
65 end.
View Code

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Python4Delphi注意事项发布时间:2022-07-18
下一篇:
delphi之颜色转换和像素访问发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap