delphi中checkbox问题.

Question

有两个checkbox控件,一个按钮,条件是:选上两个checkbox控件，单机按钮，弹出对话框显示checkbox的caption内容.

先定义变量s:string;

如果checkbox选中,checkbox单击事件:s:=checkbox1.caption;
我想当checkbox不选中时,S变量里没有checkbox的值
怎么做到

简单的说就是

选上checkbox1和checkbox2的时候,再但击按钮，最后弹出对话框显示
checkbox1和checkbox2的标题(caption)内容

否则不显示

Answer 1

我理解你的意思了，实际上在每次赋值前将s的值清空就可以了
在按钮点击事件的begin……end中键入以下代码，当然不要忘了声明s：string哦
s:='';
if Self.chk1.Checked=True then
s:=s+self.chk1.Caption;
if Self.chk2.Checked=True then
s:=s+self.chk2.Caption;
ShowMessage(s);

Answer 2

不是很懂你的目的，不知道是这个目的吗？
s:='';
if checkbox1.checked then
s:=checkbox1.caption;
if checkbox2.checked then
s:=s+checkbox2.caption;
//如果有一个就提示一个是这个样，如果必须两个都是True
//那就（if (checkbox1.checked) and (checkbox2.checked) then）
if s<>'' then
begin
showmessage(s);
end

Answer 3

先判断checkbox的checked属性，如果是True再赋值

Answer 4

按钮单机事件里面

if checkbox1.checked then
begin
s:=checkbox1.caption;
showmessage(s);
end;