ComboBox问题??

ypyRock 2001-07-16 11:55:12
当改变ItemIndex时,我不想其Text变化,相当于ReadOnly,也就是Items只是看的不能改变,不管选择哪个Item,Text永远不会变。怎么做?有这样的控件吗?
...全文
114 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
tangjunrong 2001-07-17
  • 打赏
  • 举报
回复
试一试:当你改变ItemIndex时,重新赋Text属性值为你想要的内容不就可以了
chenjun 2001-07-17
  • 打赏
  • 举报
回复
我不太清楚你的意思,试试下面的代码,不知能不能满足你的要求。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure ComboBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
cbindex:Integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex<>cbindex then
combobox1.ItemIndex:=cbindex;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=2;
cbindex:=combobox1.ItemIndex;
end;

end.
将combobox1的style属性设为csdropdownlist。
delphi_user 2001-07-17
  • 打赏
  • 举报
回复
同意阿波罗
prometheusphinx 2001-07-17
  • 打赏
  • 举报
回复
还有一个笨办法,
在ComboBox上放一个Edit盖住它的Edit部份,
这样Edit.Text就可以由你自己设定,
不受ComboBox的影响.
qywjg 2001-07-17
  • 打赏
  • 举报
回复
同意楼上!!
dana 2001-07-17
  • 打赏
  • 举报
回复
重新赋值回去。
Apollo47 2001-07-17
  • 打赏
  • 举报
回复
设置Style属性为csOwnerDrawFixed或csDropDownList。


wfmwg 2001-07-17
  • 打赏
  • 举报
回复
将Style属性设为csSimple行吗?
qywjg 2001-07-17
  • 打赏
  • 举报
回复
同意楼上!
liuzhiping 2001-07-17
  • 打赏
  • 举报
回复
阿波罗说得对。

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧