怎么做缩略图,其被选中效果与Windown资源管理器选中效果相同,请看贴图

如何做缩略图,其被选中效果与Windown资源管理器选中效果相同,请看贴图如图所示,Listview做缩略图时,选中缩

如何做缩略图,其被选中效果与Windown资源管理器选中效果相同,请看贴图

如图所示,Listview做缩略图时,选中缩略图时,整个范围被选中,而windown资源管理器中缩略图被选中时,视觉上感觉只是边框被选中,如何做到与windown资源管理器相同效果

[解决办法]
有个想法不知道可行不
把canselect/canfouce属性设为false
然后在click等选中事件中设置forecolor及backcolor就行了
实在不行就算了,用label+picture来实现

[解决办法]
有个想法不知道可行不
把canselect/canfouce属性设为false
然后在click等选中事件中设置forecolor及backcolor就行了
实在不行就算了,用label+picture来实现

[解决办法]
有个想法不知道可行不
把canselect/canfouce属性设为false
然后在click等选中事件中设置forecolor及backcolor就行了
实在不行就算了,用label+picture来实现

[解决办法]
Image1+Shape1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.visible:=true; 
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.visible:=false;
end;