var
edit1:tedit
begin
edit1:=tedit.create;
edit1.parent:=form1;
edit1.left:=2;
edit1.top:=2;
edit1.free;
end;
edit1:tedit
begin
edit1:=tedit.create;
edit1.parent:=form1;
edit1.left:=2;
edit1.top:=2;
edit1.free;
end;
解决方案 »
- string类型有没有类似substring功能的函数啊?
- 如何写动态的对象名?
- 如何将 MScomm控件打包?
- 提问:关于web开发!
- 关于如何防止内存泄漏的问题
- 在delphi怎样取时间是用户不能自己修改
- 怎样为动态创建的控件添加代码?
- 新手求助~~简单的报表问题!!
- 装了activex控件showflash里面如何导入FALSH 动画??是不是在MOIVE属性里打上文件地址啊|\/..~!~!
- 有没有哪个命令可把库中的所有表取出来?
- 为感谢大家对我这个菜鸟的帮助。特地把DELPHI5开发人员指南电子版发到公司的服务器上请下载。但是希望别用太多线程。要不就完了。普通的虚拟主机而已。
- 如何编一个程序,记录所有键盘输入信息,是长驻内存不显示在任务管理器上?
edit1:tedit
begin
edit1:=tedit.create(self);
edit1.parent:=form1;
edit1.left:=2;
edit1.top:=2;
end; edit1.free; //这一句在edit用完之后再使用
begin
with TEdit1.Create(self) do
begin
edit1.parent := self;
edit1.left := 2;
edit1.top := 2;
edit1.text := '是不是这样子呀!';
end;
end;
var e:Tedit;
begin
e:=tedit.create(form);
e.parent:=ppanel;
e.left:=x;e.top:=y;
e.width/height/color.......
result:=e;
end;
http://www.csdn.net/expert/topic/410/410056.shtm
edit1:tedit
begin
edit1:=tedit.create(self);
edit1.parent:=form1;
edit1.left:=2;
edit1.top:=2;
end; edit1.free; //用完这后不FREE也不要紧,它的parent即From1关掉的时候自动会把它Free的!
用循环,调用create
eit1:array[1..50] of tedit;//定义它们
i:integer;
begin
for i:=1 to 50 do//初始它们
begin
edit[i]:=tedit.create(self);
edit[i].parent:=form1;
edit[i].left:=i*5;
edit[i].top:=i+1;
end;
for i:=1 to 50 do//不用了。删了它
edit[i].free;
end.//程序结束
写成edit[i]:=tedit.create(nil);也行
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comctrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
const
names:array[0..5,0..1] of string= (
('Rubble','Barney'),
('Michael','Johnson'),
('Bunny','Bugs'),
('Silver','HiHo'),
('Simpson','Bart'),
('Squirrel','Rocky'));
var
I:integer;
NewColumn:TListColumn;
ListItem:TListItem;
ListView:TListView;
begin
ListView:=TListView.Create(Self);
with ListView do
begin
Parent:=Self;
Align:=alClient;
ViewStyle:=vsReport;
Newcolumn:=Columns.Add;
NewColumn.Caption:='Last';
NewColumn:=Columns.Add;
NewColumn.Caption:='First';
for I:=Low(Names) to High(Names) do
begin
ListItem:=Items.Add;
ListItem.Caption:=Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;end;end.