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 ipnumberipv4

Delphi rest 服务器返回utf16编码转换成正常string

Delphi winapi: getwindowtextlength - 获取窗口标题长度

Delphi xe10 android安卓 移动端 messagedlg 用法

Delphi 利用sendinput模拟鼠标键盘

Delphi 显示时间日期星期

Delphi中如何用一个按钮控制开与关两个状态

Delphi 关于rs485总线通信协议开发注意事项

Delphi 随机生成汉字

Delphi 获取系统服务列表

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...