是这样的
我想在PageControl1 上面的分页TabSheet1 上面 动态创建 edit组件,请问怎样实现?代码
我想在PageControl1 上面的分页TabSheet1 上面 动态创建 edit组件,请问怎样实现?代码
解决方案 »
- 如何清空imageenview内的图片
- 为什么北京南三环早上由东向西那么的堵车?为什么堵到公主坟就通畅了?哎,连着3天都迟到了,找谁说理去呀?
- 在没有说明情况下,如何知道某个源代码使用第三方控件名称?
- '掉线之迷?'(百分相送)
- 一个简单问题,希望大家指点,如何在memo中将光标指向最后一条记录,或是socrol到最后一条记录
- 求助!!!
- 如何进行网络udp数据包的发送和接收
- 谁提供抓IP包的程序,就给全分,不够再加
- 有关treeview
- 请高手帮助!我写了个注册表!可是第一次运行好的!以后一直提示“failed to set data for max”!
- 有谁知道怎么编写DVS文件的播放器?
- invalid pointer operation 提示,高手帮忙分析,100分
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;
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:= TabSheet1; //--这句最重要,否则就跑别的地方去了
Show;
end;
end;