我使用控件数组,进行循环后TEdit总是将TLabel"覆盖"
请问怎么解决!有示例吗?谢谢!!
请问怎么解决!有示例吗?谢谢!!
解决方案 »
- 用DELPHI 连接Excel
- dephi开发电力通信104规约
- 数据库设计
- 如何取得Recordset的KeyField字段
- 请教:这个问题如何下手?
- 在QRExpr中Expression中写'第 ' + PageNumber+' 页'是显示当前页码。现在要想显示总共有几页该怎么写啊?'共'+..........+'页'
- sos:用过f1book的高手看过来,调用打印时提示语法出错?
- 一个很简单的问题
- Exe 文件打包问题,求高手指点!
- 一个Edit(里面有内容)得到焦点的时候,怎么才能把此Edit里的光标移动到末尾?
- MSComm 可发送,但不可接收? 程序如下
- 我用idHppt去post一个网页,这个网页每次访问后自动跳转到的新网页才是我需要的。
var
ArrayEdit:array[1..5] of TEdit;
ArrayLabel:array[1..5] of TLabel;
i:integer;
begin
for i:=1 to 5 do
begin
ArrayLabel[i]:=TLabel.Create(self);
ArrayLabel[i].Parent:=self;
ArrayLabel[i].Caption:='Label'+inttostr(i);
ArrayLabel[i].Left:=10;
ArrayLabel[i].Top:=i*50;
ArrayEdit[i]:=TEdit.Create(self);
ArrayEdit[i].Parent:=self;
ArrayEdit[i].Text:='Text'+inttostr(i);
ArrayEdit[i].Left:=100;
ArrayEdit[i].Top:=i*50;
end;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure ButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
btnList:array[1..20] of Tbutton;
begin
for i:=1 to 20 do
begin
btnList[i]:=Tbutton.Create(Self);
btnList[i].Parent:=self;
if i<=10 then
begin
btnlist[i].Top:=20;
btnlist[i].Left:=i*60;
end
else begin
btnlist[i].Top:=60;
btnlist[i].Left:=(i-10)*60;
end;
btnList[i].Tag:=i;
btnList[i].Caption:=IntToStr(i);
btnList[i].Onclick:=ButtonClick ;
end;
end;procedure TForm1.ButtonClick(Sender: TObject);
begin
showmessage(IntToStr((Sender as TButton).Tag))
end;end.