(中行雷威2019.5.30)
（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、860634510、299497712,进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）
【阅读倡议】
1、有问题请留言;
2、没问题请点赞;
3、看连载请加群;
4、下源码请加群;
【开发工具】
1、C++Builder and Delphi 10.3.1
2、FMSoft_uniGUI_Complete_Professional_1.70.0.1501（正版）
本人主笔的国内第一本uniGUI教学案例代码已诞生，分为cbuilder和delphi两个版本，买代码送手册，需要的朋友可以加入我的QQ技术交流群484979943给我（群主）留言。资料简介：https://blog.csdn.net/dlboy2018/article/details/88923832
7.9如何动态创建控件
本例子主要介绍如何动态创建一些常用uniGUI控件，并且为一些控件添加一些简单的事件，介绍一下如何为调用动态创建的控件的函数或事件。
7.9.1界面设计
在MainForm上摆放两个UniContainerPanel和一个UniMemo控件，UniContainerPanel1控件的Align设为alLeft，UniMemo控件的Name设为UniMemoLog、Align设为alRight，将UniContainerPanel2的Align设为alClient。在UniContainerPanel1上面摆放八个UniButton控件，分别将其Name设为createButton、createEdit、createComboBox、createMemo、createPanel、createRadioGroup、createStringGrid、createTreeView，将他们的Align都设为alTop。在UniContainerPanel1上放一个UniCheckBox并将其Name设为cbDragFlag，将其Caption设为“允许拖拽”。如下图所示，左侧八个按钮分别用来动态创建不同的控件，勾选上“允许拖拽”后新创建的控件可以用鼠标拖拽，拖拽后将在右侧的UniMemoLog控件里显示控件的新坐标位置，新创建的控件将在UniContainerPanel2里面出现，鼠标点哪里新创建的控件将出现在哪里。
7.9.2功能实现
1、Main.pas引用动态创建控件的头文件
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniCheckBox,uniGUIBaseClasses,
uniButton, uniMemo, uniPanel,uniEdit,uniComboBox,uniRadioGroup,uniStringGrid,uniTreeView; //引用控件的头文件
2、Main.pas定义一些变量和函数
type
TMainForm = class(TUniForm)
…
private
{ Private declarations }
B1,E1,P1,C1,M1,R1,S1,T1: Integer;//定义各个控件的序号变量
LastX, LastY : Integer;//定义鼠标点击最后位置变量
procedure AnyEndDrag(Sender: TUniControl; Left, Top: Integer);//定义拖拽结束函数
procedure ShowHello(Sender: TObject);//定义按钮点击函数
public
{ Public declarations }
end;
3、Main.pas主要功能
点击UniContainerPanel2的任何位置，记录下鼠标点击坐标，点击左侧的控件创建按钮时将在坐标位置创建一个新控件，拖动控件时让右侧记录下控件的新位置。
1）记录鼠标的点击位置
procedure TMainForm.UniContainerPanel2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
//记录鼠标当前点击位置
begin
LastX := X;
LastY := Y;
end;
2）记录控件拖动后的新位置
AnyEndDrag是一个公共函数，拖动任何一个新创建的控件，都将记录下控件的新位置，让新创建控件的OnEndDrag=AnyEndDrag即可。
procedure TMainForm.AnyEndDrag(Sender: TUniControl; Left, Top: Integer);
begin
UniMemoLog.Lines.Add(Sender.Name+'''的X位置: '+IntToStr(Left)+' Y位置: '+IntToStr(Top));
UniMemoLog.Lines.Add('--------------------------------------------------');
end;
3）控制新控件是否可以拖动
procedure TMainForm.cbDragFlagClick(Sender: TObject);
var
I : Integer;
uControl : TUniControl;
begin
if cbDragFlag.Checked then //可拖放
begin
for I := 0 to UniContainerPanel2.ControlCount - 1 do
if UniContainerPanel2.Controls[I] is TUniControl then
begin
uControl := UniContainerPanel2.Controls[I] as TUniControl;
uControl.Draggable.Enabled := True;
uControl.Cursor := crDrag
end;
end
else //不可拖放
begin
for I := 0 to UniContainerPanel2.ControlCount - 1 do
if UniContainerPanel2.Controls[I] is TUniControl then
begin
uControl := UniContainerPanel2.Controls[I] as TUniControl;
uControl.Draggable.Enabled := False;
uControl.Cursor := crDefault;
end;
end;
end;
4）动态创建UniButton按钮
ShowHello是一个自定义的功能函数，如果想让按钮的点击事件调用ShowHello函数，设置按钮的OnClick=ShowHello即可。
procedure TMainForm.ShowHello(Sender: TObject);
//动态创建的按钮的点击事件
begin
ShowMessageN('HelloWorld');
end;
procedure TMainForm.createButtonClick(Sender: TObject);
//动态创建UniButton控件
begin
B1:=B1+1;
with TUniButton.Create(Self) as TUniButton do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
Caption := 'Button'+IntToStr(B1);
Name := Caption;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;//调用拖放结束事件
OnClick :=ShowHello;//调用按钮点击事件
end;
end;
5）动态创建UniEdit控件
procedure TMainForm.createEditClick(Sender: TObject);
begin
E1 := E1 +1;
with TUniEdit.Create(Self) as TUniEdit do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
Text := 'Edit'+IntToStr(E1);
Name := Text;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
Width :=200;//控件总长度
FieldLabel :='姓名';//输入框标签
FieldLabelWidth:=30;//标签长度
Text:='';//默认内容置为空
EmptyText:='请输入姓名';//输入框为空时的提示信息
end;
end;
6）动态创建UniComboBox控件
procedure TMainForm.createComboBoxClick(Sender: TObject);
begin
C1 := C1+1;
with TUniComboBox.Create(Self) as TUniComboBox do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
Text := 'ComboBox'+IntToStr(C1);
Name := Text;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
Items.Add('大连理工大学');//添加下拉选项
Items.Add('北京理工大学');
Items.Add('武汉理工大学');
ItemIndex:=0;//制定默认显示第1项
end;
end;
7）动态创建UniMemo控件
procedure TMainForm.createMemoClick(Sender: TObject);
var
i:Integer;
begin
M1 := M1+1;
with TUniMemo.Create(Self) as TUniMemo do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
Lines.Add('Memo'+IntToStr(M1));
Name := 'Memo'+IntToStr(M1);
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
// ScrollBars := ssBoth; //设定拖动条（有BUG）
Font.Size:=12;
Font.Color:=clRed;
WordWrap:=false;//不自动换行
for i:=0 to 20 do
begin
Lines.Add('我自来大连理工大学，我的学号是:'+IntToStr(i));
end;
end;
end;
8）动态创建UniPanel控件
procedure TMainForm.createPanelClick(Sender: TObject);
begin
P1 := P1+1;
with TUniPanel.Create(Self) as TUniPanel do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
TitleVisible := True;
Title := 'Panel'+IntToStr(P1);
Name := Title;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
Collapsible:=true; //可收起
Collapsed:=false; //状态：未收起
CollapseDirection:=cdTop;//收起方向
end;
end;
9）动态创建UniRadioGroup控件
procedure TMainForm.createRadioGroupClick(Sender: TObject);
begin
R1 := R1+1;
with TUniRadioGroup.Create(Self) as TUniRadioGroup do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
Items.Add('香蕉');
Items.Add('西瓜');
Items.Add('苹果');
ItemIndex := 0;
Width := 150;
Height := 80;
Caption := 'RadioGroup'+IntToStr(R1);
Name := Caption;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
end;
end;
10）动态创建UniStringGrid控件
procedure TMainForm.createStringGridClick(Sender: TObject);
var
i,j:Integer;
begin
S1 := S1+1;
with TUniStringGrid.Create(Self) as TUniStringGrid do
begin
Left := LastX;
Top := LastY;
Parent := UniContainerPanel2;
HeaderTitle := 'StringGrid'+IntToStr(S1);
Height := 150;
Name := HeaderTitle;
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
ShowColumnTitles:=true;//显示列标题
StripeRows:=true;//条带化
RowCount:=5;
ColCount:=3;
for i:=0 to RowCount do
begin
for j:=0 to ColCount do
begin
Cells[j,i]:=IntToStr(i*j);
end;
end;
end;
end;
11）动态创建UniTreeView控件
procedure TMainForm.createTreeViewClick(Sender: TObject);
var
LDestNode: TUniTreeNode;
begin
T1 := T1+1;
with TUniTreeView.Create(Self) as TUniTreeView do
begin
Left := LastX;
Top := LastY;
Width :=200;
Height :=250;
Parent := UniContainerPanel2;
Title := 'UniTreeView'+IntToStr(T1);
Name := Title;
LDestNode := Items.Add(nil,'*') ;
Items.AddChild(LDestNode,'北京');
Items.AddChild(LDestNode,'辽宁');
Items.AddChild(LDestNode,'上海');
Draggable.Enabled := True;
Cursor := crDrag;
OnEndDrag := AnyEndDrag;
end;
end;
7.9.3运行效果
