ListView1 的ONchange事件 begin if ListView1.selected <> nil then CheckBox1.Checked := True else CheckBox1.Checked := False; end; CheckBox1的OnChange事件 begin if CheckBox1.Checked then ListView1.SetFocus; end; 看下是你要的效果吗?
不行,我以前有试过,ListView1 的ONchange事件 begin if ListView1.selected <> nil then CheckBox1.Checked := True else //从这里开始是编译不过去的,如只要上面的话,只是选了以后会打勾,并不变 CheckBox1.Checked := False; end; 同我用的是listview中checkbox,因此也不存在CheckBox1的OnChange事件;
to: youisbest begin if ListView1.selected <> nil then CheckBox1.Checked := True else //从这里开始是编译不过去的,如只要上面的话,只是选了以后会打勾,并不变 CheckBox1.Checked := False; end; 这条语句可以编译啊.怎么会编译不过去呢? 如果使用的是listview中checkbox的,那要根据listview中checkbox中的至来判断了.变通一下就可以..
begin
if ListView1.selected <> nil then
CheckBox1.Checked := True
else
CheckBox1.Checked := False;
end;
CheckBox1的OnChange事件
begin
if CheckBox1.Checked then
ListView1.SetFocus;
end;
看下是你要的效果吗?
begin
if ListView1.selected <> nil then
CheckBox1.Checked := True
else //从这里开始是编译不过去的,如只要上面的话,只是选了以后会打勾,并不变
CheckBox1.Checked := False;
end;
同我用的是listview中checkbox,因此也不存在CheckBox1的OnChange事件;
begin
if ListView1.selected <> nil then
CheckBox1.Checked := True
else //从这里开始是编译不过去的,如只要上面的话,只是选了以后会打勾,并不变
CheckBox1.Checked := False;
end;
这条语句可以编译啊.怎么会编译不过去呢?
如果使用的是listview中checkbox的,那要根据listview中checkbox中的至来判断了.变通一下就可以..