checkbox的问题

Question

为什么我的窗体中有checkbox后一运行checkbox外面就有一个虚线框啊,怎么去掉它

Answer 1

窗体焦点的原因
如果要让每次点击后都没有虑框的话可以考虑用panle来辅助

Answer 2

procedure   TForm1.FormShow(Sender:   TObject);   
  begin   
      Panel1.SetFocus;   
      Panel1.Visible:=false;   
  end;   
    
  procedure   TForm1.CheckBox1MouseDown(Sender:   TObject;   Button:   TMouseButton;   
      Shift:   TShiftState;   X,   Y:   Integer);   
  begin   
      CheckBox1.Checked:=not   CheckBox1.Checked;   
      Panel1.Visible:=true;   
      Panel1.SetFocus;   
      Panel1.Visible:=false;   
  end;   
应该可以，没试
嘿嘿