with TButton.Create(Self) do begin
Parent := Self;
Caption := 'hello';
end;
Parent := Self;
Caption := 'hello';
end;
解决方案 »
- delphi 6 的可执行程序在VISTA下不能执行
- 在vista操作系统下,运行一个Delphi程序在 查询数据库时报错: Network initialization failed.Permission denied. File:C:\PDOXUSRS.NET Directory:c:\.
- 等待delphi高手的解答,急的很。解决马上给分
- 找幾個志同道合的人,討論一下 P2P 方面的知識。MSN
- 如何将RichEdit中输入的文本转成BMP图片
- 如何在主程序退出前把其它创建的窗体都关闭掉。
- 关于模糊查询的问题.急!
- sql语言怎么处理时间类型
- 如何在一个事件处理过程中直接跳出该事件?
- 请问如何在一个可执行文件运行时修改自身
- 恩,好象有不少高手在找问题答呢!那我问一个问题!
- 真奇怪,请问TDateTime到底是什么?我怎么不能用TDateTime::方法?
var
i: integer;
bu1: Tbutton;
begin
for i := 0 to memo1.Lines.Count - 1 do
begin
bu1 := TButton.Create(self);
bu1.Parent := Form1;
bu1.Show;
bu1.Caption := memo1.Lines[i];
bu1.Left := 0;
bu1.Top := 10 + (bu1.Height) * i;
bu1.Name := 'bu1' + inttostr(i);
end;
end;