如何去除虚线框

Question

在Delphi中，当点击Checkbox,TrackBar等控件时，会产生一个虚线框，请问如何去除？

Answer 1

不去点它,嘿嘿,
好像windows默认的获得焦点的大都会有个虚线框,难不成每次点完手动把焦点设置到其它制件上?

Answer 2

自己写个checkbox，最简单的，两个图片互换，一个选中一个没选中

Answer 3

插入如下代码：
var
  m_ersDC:HDC;
...
m_ersDC:= GetDC(control.Handle);
DrawFocusRect(Rect(0,0,control.Width,control.Height));这样应该就可以了。

Answer 4

漏写了 
DrawFocusRect(m_ersDC,Rect(0,0,control.Width,control.Height));