不
不菜
Unregistered / Unconfirmed
GUEST, unregistred user!
[?]大家好，请问一下，delphi中checklistbox件，怎么没有checked属性、state属性、itemenabled属性，书上
说这些属性都是数组,代码如下：
先生成数组属性的字符串：
function getarrnum(p:array of boolean):string;{getarrnum不明白，这行代码不知放在窗口代码的哪个位置}
function tfrmcontrol.getarrnum(p:array of boolean):string;{tfrmcontrol.getarrnum不明白是什么}
var i:integer;
s:string;
begin
s:='';
for i:=low(p) to high(p) do
begin
case p of
ture:s:=s+'t';
false:s:=s+'f';
end;
end;
result:=s;
end;
建立state属性:
type tcheckboxstate=(cbunchecked,cbchecked,cbgrayed);
property state[index:integer]:tcheckboxstate;{这两行代码该放到什么位置}
谢谢!
说这些属性都是数组,代码如下：
先生成数组属性的字符串：
function getarrnum(p:array of boolean):string;{getarrnum不明白，这行代码不知放在窗口代码的哪个位置}
function tfrmcontrol.getarrnum(p:array of boolean):string;{tfrmcontrol.getarrnum不明白是什么}
var i:integer;
s:string;
begin
s:='';
for i:=low(p) to high(p) do
begin
case p of
ture:s:=s+'t';
false:s:=s+'f';
end;
end;
result:=s;
end;
建立state属性:
type tcheckboxstate=(cbunchecked,cbchecked,cbgrayed);
property state[index:integer]:tcheckboxstate;{这两行代码该放到什么位置}
谢谢!