是这样的
我想在PageControl1 上面的分页TabSheet1 上面 动态创建 edit组件,请问怎样实现?代码
我想在PageControl1 上面的分页TabSheet1 上面 动态创建 edit组件,请问怎样实现?代码
解决方案 »
- File not found: 'Connection.dcu' 求这个控件
- 递归求部门列表
- 触发器问题 分不够马上加,请大家帮忙看看
- 计算查询到的记录,在线急
- 关于RAVE的页面设置。
- delphi下载!原来是要找找问题的答案的,到是找到了这些!
- 以前我在CSDN看过类似的贴字,现在忘了这样的sql语句怎么写,请知情者赐教!!
- Adoqury连接出错后怎么恢复?
- 我用delphi做客户/服务器,用的是远程数据模块,在做服务器的时候我用已建的本地.gdb的数据库,在table控件属性active设置为true时,出现 unk
- 有关于clientdataset的问题
- sqlserver更新的简单问题
- 求一控件
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;
procedure TForm1.Button1Click(Sender: TObject);
var Edit1:TEdit;
begin
Edit1:=TEdit.Create(Self);
Edit1.Parent:=TabSheet1;
Edit1.Height:=20;
Edit1.Width:=100;
Edit1.Left:=0;
Edit1.Top:=0;
end;