双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何在Combox中进行多项选择

2011-08-02 11:24:38 524 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

XTMENG 墨衍会员 · AI 创作全网分发关注 + 加入社区

C#ListBox和ComboBox控件练习订单阅读详情

比如 combox有三项内容，分别是A，B，C，想实现多次选择，当第一次选择时，combox.text:='A'，第二选择时，combox.text:='A'+'B'
依次类推，如何实现？？？

...全文

sophgo sdk v23.03.01 C/C++程序建议在x86主机上使用交叉编译工具链编译生成可执行文件后，再拷贝到SoC目标平台运行。# 创建docker用户组，若已有docker组会报错，没关系可忽略。对于SoC模式，模型转换也需要在docker开发容器中完成；docker开发容器的配置参照前述章节相关内容。6、创建docker容器并进入Docker。# docker命令免root权限执行。# 将当前用户加入docker组。# 重启docker服务。# 安装 docker。3、安装docker。7、SoC 环境配置。阅读详情

XTMENG

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

XTMENG 2011-08-03

打赏
举报

请问dinoalex：我装ExpressQuantumGrid4.5版本，发现没有
TcxCheckComboBox这个控件啊，到底是哪个版本有呢？？？

山东蓝鸟贵薪 2011-08-03

打赏
举报

学习学习中..........................

dinoalex 2011-08-03

打赏
举报

TcxCheckComboBox

oosmile 2011-08-03

打赏
举报

在ComBox中添加Checkbox
add flat checkboxes into a TComboBox and multiselect?
Author: Chrizz
0 Comments to this tip [Write new comment]
[ Print tip ]

Tip Rating (0):

//Set ComboBox.Style:=csOwnerDrawFixed
//tested with D6 and WinXP...

//.....
private
Selected: array of Boolean;
//.....

procedure TTForm1.ComboBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
SetLength(Selected, TComboBox(Control).Items.Count);
with TComboBox(Control).Canvas do
begin
FillRect(rect);

Rect.Left := Rect.Left + 1;
Rect.Right := Rect.Left + 13;
Rect.Bottom := Rect.Bottom;
Rect.Top := Rect.Top;

if not (odSelected in State) and (Selected[Index]) then
DrawFrameControl(Handle, Rect, DFC_BUTTON,
DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT)
else if (odFocused in State) and (Selected[Index]) then
DrawFrameControl(Handle, Rect, DFC_BUTTON,
DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT)
else if (Selected[Index]) then
DrawFrameControl(Handle, Rect, DFC_BUTTON,
DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT)
else if not (Selected[Index]) then
DrawFrameControl(Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_FLAT);

TextOut(Rect.Left + 15, Rect.Top, TComboBox(Control).Items[Index]);
end;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
var
i: Integer;
Sel: string;
begin
Sel := EmptyStr;
Selected[TComboBox(Sender).ItemIndex] := not Selected[TComboBox(Sender).ItemIndex];
for i := 0 to TComboBox(Sender).Items.Count - 1 do
if Selected[i] then
Sel := Sel + TComboBox(Sender).Items[i] + ' ';
ShowMessage(Sel); //Just for test...
end;

babydog01 2011-08-03

打赏
举报

你要安装devexpress 控件组，不能只安装ExpressQuantumGrid4.5。

✦双11狂欢大促✦

如何在Combox中进行多项选择

相关推荐

双11狂欢大促