如题
解决方案 »
- 如何将Excel的数据调入到Dbgrid中显示?有人回答了此问题但有些我不懂请高手赐教谢谢!!
- 各位前輩,救救我吧!
- 不是吧,我就几天没来,信誉自己下降了
- 如何捕捉ECONVERTERROR?ECONVERTERROR是什么类型?
- 请问如何修改QQ?
- 在Delphi中如何获得计算机中主板的序列号
- 请问用delphi编写与硬件的接口可以吗??
- delphi程序正在发送一个输入同步呼叫,无法执行传出的呼叫,如何解决?
- TSimpleDataSet.FieldByName() 访问sqlite出错
- 请问如何用tadotable来查询,它没有setkey方法呀
- 能够让 TWebBrowser 在编辑状态下显示 DIV 或 Table 的边线吗﹖
- 像TWebBrowser这类ActiveX控件,如何设置Parent控件﹖
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxControls, cxContainer, cxEdit, cxGroupBox, cxCheckGroup,cxCheckBox,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
cxCheckGroup1: TcxCheckGroup;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to self.cxCheckGroup1.Properties.Items.Count - 1 do
begin
//cbsUnchecked,cbsChecked, cbsGrayed
if self.cxCheckGroup1.States[i] = (cbsChecked) then
ShowMessage('checked');
end;
end;end.注意在USES里面加上cxCheckBox单元