如果创建控件(200分)

  • 主题发起人 主题发起人 qwert
  • 开始时间 开始时间
Q

qwert

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中,如何动态的创建文本框控件。
 
可以这样写:
procedure TForm1.Button1Click(Sender: TObject);
var edit1:Tedit;
begin
edit1:=Tedit.Create(self);
edit1.Parent:=self;
end;
 
试一下以下代码:
with TEdit.Create(self) do
begin
Visible:=False;
Left:=100; //可动态改变控件的位置
Top:=100;
Visible:=True;
Parent:=Self; //必要不可,指其父拥有者
end;
 
我的天?一下子200分,你为何提问之前不先检索一下以前答案?
 
前几天我才用Delphi,而且是第一次来这里,以后要保留一些积学好点了。
 
你的问题应该是:"如何开发控件吧?"
 
后退
顶部