在运行时在FORM上动态生成添加控件 如何在运行时在FORM上动态生成添加TEDIT,TShape等标准控件,并且能在EDIT里输入内容 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 动态创建就完了。在formshow 中var edit1 : Tedit;begin edit1:= Tedit.create(self); edit1.top := 100; edit1.left := 100;end;以后用完记得释放:edit1.free; 加上一句:edit1.Parent := form1; var edit1:TEdit;showarea:Trect;begin edit1:=Tedit.Create(self); edit1.Parent:=form1; edit1.Width:=160; edit1.Height:=10;end; 能动态生成此控件的方法吗?// 你指的是什么东西?单击调用一个方法,生成一个控件是吧?一样的呀,把这些事儿放到函数或过程中就行了。不过你还是要传点参数进去呀,比如说top和left 呀?!! ygb321(学习) 能动态生成此控件的方法吗当然可以unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var edit1:TEdit;begin edit1:=Tedit.Create(self); edit1.Parent:=form1; edit1.Width:=160; edit1.Height:=10; edit1.OnClick := self.Label1.OnClick;end;procedure TForm1.Label1Click(Sender: TObject);begin showmessage('d');end;end. 动态创建就完了。var edit1 : Tedit;begin edit1:= Tedit.create(self); edit1.top := 100; edit1.left := 100;end;以后用完记得释放:edit1.free; SQL语句结束的地方缺少‘;’,求解 nmudp.dcu文件 DELPHI下SQL语句改错 请教高手DBGridEh数据有效性判断问题,急! 非空列不能更新为null --经典老问题 cxgrid 分组分页打印 100分求程序不能最小化的问题。up有分。 十万火急,希望各位老大帮忙。我现在用到文本文件数据库,当在碰到中文时就出现乱码的问题,这是怎么回事呀??? 关于程序运行出现以下的错误提示,什么原因? 关于delphi Delphi6.0的输入框为何不支持GB13000标准汉字的输入呢? delphi中怎样通过消息改变statusbar状态栏上第2、3等显示位置上的文本内容???
在formshow 中
var
edit1 : Tedit;
begin
edit1:= Tedit.create(self);
edit1.top := 100;
edit1.left := 100;
end;以后用完记得释放:
edit1.free;
edit1.Parent := form1;
begin
edit1:=Tedit.Create(self);
edit1.Parent:=form1;
edit1.Width:=160;
edit1.Height:=10;
end;
能动态生成此控件的方法吗当然可以
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var edit1:TEdit;
begin
edit1:=Tedit.Create(self);
edit1.Parent:=form1;
edit1.Width:=160;
edit1.Height:=10;
edit1.OnClick := self.Label1.OnClick;
end;procedure TForm1.Label1Click(Sender: TObject);
begin
showmessage('d');
end;end.
var
edit1 : Tedit;
begin
edit1:= Tedit.create(self);
edit1.top := 100;
edit1.left := 100;
end;以后用完记得释放:
edit1.free;