我动态创建N个CHECKBOX控件
var
ss:array[1..4] fo string;
i:integer'
begin
for i:=1 to 4 do
begin
mycheckbox := TCheckBox.Create(nil);
with mycheckbox do
begin
Parent := Form1;//
Left := 100;//位置信息
Top := 64+i*22;
Width := 90;//大小信息
Height := 17;
mycheckbox.Caption:=ss[i];
end;
end;
创建后CHECKBOX的CAPTION分别为'一,二,三四'请教我想在CHECKBOX上的CLICK事件上同时取得CHECKBOX的标签值,如何实现?即我在点任意一个CHECKBOX的时候就能取得相应的CAPTION
var
ss:array[1..4] fo string;
i:integer'
begin
for i:=1 to 4 do
begin
mycheckbox := TCheckBox.Create(nil);
with mycheckbox do
begin
Parent := Form1;//
Left := 100;//位置信息
Top := 64+i*22;
Width := 90;//大小信息
Height := 17;
mycheckbox.Caption:=ss[i];
end;
end;
创建后CHECKBOX的CAPTION分别为'一,二,三四'请教我想在CHECKBOX上的CLICK事件上同时取得CHECKBOX的标签值,如何实现?即我在点任意一个CHECKBOX的时候就能取得相应的CAPTION
解决方案 »
- IdTCPServer 怎么接收来自IdTCPClient端的文件
- hwnd转换问题
- DCOM+中间层ADOStoredProc传递参数无效问题
- 我的Delphi出问题了,有经验的来看看
- 为什么用前面提到过的方法都没得到解决,难道ACCESS数据库就这么难备份?
- FillChar()有什么功能?怎样用?
- 我通过MODEM连上INTERNET的计算机A,远程控制另一台远程电脑B,B电脑在局域内,它通过一台计算机作网关上
- 'select count(*) as numbers from answerinfo
- 用ADO做update时老是出错,[microsoft][ODBC dBase Driver]操作必须使用一个可更新的查询????没有人懂吗?
- 关于Paradox数据库的问题
- 解答: Indy 是如何实现 服务器端发送数据,客户端接收数据的~!
- 如果通过DELPHI来实现远程文件夹的共享与不共享
var
ss: array[1..4] of string;
i: integer;
mycheckbox: TCheckBox;
begin
for i := 1 to 4 do
begin
mycheckbox := TCheckBox.Create(nil);
with mycheckbox do
begin
Parent := Form1; //
Left := 100; //位置信息
Top := 64 + i * 22;
Width := 90; //大小信息
Height := 17;
mycheckbox.Caption := ss[i];
OnClick := DoClickCheckBox;
end;
end;
end;procedure TForm1.DoClickCheckBox(Sender: TObject);
var
mycheckbox: TCheckBox;
begin
mycheckbox := TCheckBox(Sender);
ShowMessage(mycheckbox.Caption);
end;
procedure TForm1.DoClickCheckBox(Sender: TObject);
begin
Edit1.text:=TCheckBox(Sender).Caption;
end;