本文整理自网络,侵删。
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 在 webservice 中采用 tsoapattachment 传输文件
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi 移动windows开始按钮到任务栏中的任何位置
Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称
Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换
更多相关阅读请进入《Delphi》频道 >>