delphi在PageControl1上面的分页动态创建edit组件

本文整理自网络，侵删。

 delphi在PageControl1上面的分页动态创建edit组件

//在TabSheet1上点一下鼠标，就创建一个，点一下鼠标，就创建一个

procedure TForm1.TabSheet1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with TEdit.Create(Self) do begin
Top := Y;
Left:= X;
Width := 100;
Height:= 20;
Name := Format('MyEdt%.3d%.3d',[X,Y]);
Text := Name;
Parent:= TTabSheet(Sender);
Show;
end;
end; 
 

相关阅读 >>

Delphi 中相对路径与绝对路径函数说明

Delphi 从文件中读取图像类型

Delphi xe android下让tmemo不自动弹出键盘

Delphi获取系统电源状态的信息

Delphi 判断进程名是否存在，如果存在则结束进程

Delphi 实现窗口记住关闭时的坐标位置

Delphi inttohex 查看字符的十六进制值

Delphi pagecontrol不显示tab方式

Delphi 拼接文件路径

Delphi 微信公众平台 Delphi sdk

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi在PageControl1上面的分页动态创建edit组件