請教:在多個Checkbox中,如何選擇一個在EDIT中顯示一個,並且用分號隔開?
解决方案 »
- delphi中如何解锁桌面图标
- 关于图片比较的问题,请帮忙!!
- 请教关于RichEdit的字色问题
- 两段小代码 看不出有什么不同,就是结果不同,奇怪
- 字符串中取字符的问题
- 怎样改变IDE快捷键,比如运行F5改为F9?
- 菜問題,怎樣在qr里顯示一個變量?
- 用ADO做update时老是出错,[microsoft][ODBC paradox Driver]操作必须使用一个可更新的查询?
- 谁知道哪里有TeeChart的控件下载吗?
- 请问我在interface中声明变量在别的已引用的单元中为什么不能使用
- 100分求购一加解密算法,达人帮忙了 急
- 怎么通过HTTP协议,向WebServer发出URL请求,在delphi用什么控件比较好些呢
在每个CHECKBOX的ONCLICK事件中写类似这样的代码:
if a.Checked then
edit1.Text:=edit1.Text+a.Caption+';';
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Edit1: TEdit;
procedure ComboBox1Select(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if edit1.text='' then
Edit1.Text:=ComboBox1.text
else
Edit1.Text:=Edit1.Text+','+ComboBox1.text;
end;end.
謝謝,你的辦法是可以,但是我的checkbox有30個呢,有更好的辦法嗎?
to SDLIUBO:
用ComboBox1可以,但是如果我選中以後又想取消呢,所以我選擇用checkbox。請指教。
if TCHECKBOX(SENDER).Checked then
edit1.Text:=edit1.Text+TCHECKBOX(SENDER).Caption+';';在每个CHECKbox中间调用。
2。在groupbox.ONCHANGE中写事件也可以。