TCheckListBox加ReadOnly属性(30分)

J

j5203

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #1

我想做一个带有ReadOnly属性的TCheckListBox,但不知ReadOnly属性是如何使控件处于
只读状态的,原理是什么?如果能有代码就更好了,谢谢!

 

Z

zhoujy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #2

TCheckListBox有一个属性ItemEnabled可以使所有的列表项ReadOnly.

 

J

j5203

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #3

但那样的话Item会变灰

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #4

从源码里抄袭一段CheckListBox的OnMouseDown ——
procedure TForm1.CheckListBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
DisableId: Integer = 1;//不设ItemEnabled，自己决定哪一项只读，这里假定是第二项
var
nIndex: Integer;
begin
inherited;
if Button = mbLeft then
with CheckListBox1 do begin
nIndex := ItemAtPos(Point(X, Y), True);
if nIndex = DisableId then Checked[nIndex] := not Checked[nIndex];
end;
end;

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #5

就是这样咯！

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #6

如果是全部READONLY，就不用设置那个常量了！

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-30

• #7

g:dq

 

J

j5203

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-03

• #8

接受答案了.