U
ucan1
Unregistered / Unconfirmed
GUEST, unregistred user!
Form上有一个ListView和一个“删除”按钮，点“删除”按钮时必须删除刚刚在ListView选中的Item。
这里的删除不是把该Item从ListView中删除，而是把该Item的字体颜色改变为红色。
部分代码如下：
procedure TMainForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
ListView.Canvas.Font.Color := clRed;
end;
问题如下：
先在ListView选中要删除的Item，点“删除”按钮后，该Item的字体颜色并没有立即改变，而是必须让鼠标在ListView中单击
一下，该Item的字体颜色才会改变。
然后，我在“删除”按钮的代码中增加一个自动单击ListView的代码如下
....
ListView.OnClick(ListView)；
运行的效果是该Item的字体颜色会立即改变，但是却弹出错误对话框说什么访问冲突之类的意思。
请问：
我应该如何做才能在点“删除”按钮后，该Item的字体颜色立即改变。
这里的删除不是把该Item从ListView中删除，而是把该Item的字体颜色改变为红色。
部分代码如下：
procedure TMainForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
ListView.Canvas.Font.Color := clRed;
end;
问题如下：
先在ListView选中要删除的Item，点“删除”按钮后，该Item的字体颜色并没有立即改变，而是必须让鼠标在ListView中单击
一下，该Item的字体颜色才会改变。
然后，我在“删除”按钮的代码中增加一个自动单击ListView的代码如下
....
ListView.OnClick(ListView)；
运行的效果是该Item的字体颜色会立即改变，但是却弹出错误对话框说什么访问冲突之类的意思。
请问：
我应该如何做才能在点“删除”按钮后，该Item的字体颜色立即改变。