关于控件的使用问题 在delphi中如何实现类似VB中的控件数组?比如我在程序中要动态添加个数不定的按钮,单击任何按钮都返回该按钮的Caption值 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure BtnClick(Sender: TObject);begin .... TButton(Sender).Caption; ....end;建立按钮时: Btn1 := TBitBtn.Create(Self); with Btn1 do begin Parent := Self; SetBounds(18, 114, 77, 27); TabOrder := 1; OnClick:=BtnClick; end;或者使用TAG const MaxBtnCount = 100;定义一个数组:BtnArray:array[MaxBtnCount] of TButton;new按钮时应该是这样:BtnArray[i] := TBitBtn.Create(Self); with BtnArray[i] do begin Name = Btn+IntToStr(i);///////////////这行! Parent := Self; SetBounds(18, 114, 77, 27); TabOrder := i/////////////////; OnClick:=BtnClick; end; 新手问个问题 如何取窗口的句柄,请前辈们指教,谢谢 如何在Form中实现颜色渐变:如WINDOW2000...的标题栏。 SQL SERVER 问题,(在线等待) 高分请教webbrowser的使用 控件使用问题 关于SQL的若干问题???在线等待 修改记录时,没有提交是什么原因 Delphi里是否有类似于VB中的On Error ......语句呢? re: Crob(我干嘛这么帅) fastnet控件问题 请教dbgrid显示问题
begin
....
TButton(Sender).Caption;
....
end;建立按钮时: Btn1 := TBitBtn.Create(Self);
with Btn1 do
begin
Parent := Self;
SetBounds(18, 114, 77, 27);
TabOrder := 1;
OnClick:=BtnClick;
end;
或者使用TAG
定义一个数组:BtnArray:array[MaxBtnCount] of TButton;
new按钮时应该是这样:
BtnArray[i] := TBitBtn.Create(Self);
with BtnArray[i] do
begin
Name = Btn+IntToStr(i);///////////////这行!
Parent := Self;
SetBounds(18, 114, 77, 27);
TabOrder := i/////////////////;
OnClick:=BtnClick;
end;