TCheckBoxの□にフォーカスをあてるには？？ (ID:7627)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >これを□の方（チェックが入るボックスの方）にあてることは可能でしょうか？ 無理やりCheckBox1のBox部分にフォーカスを当ててみるにゃ。 にゃにゃし、 CheckBox1.Width := 15; CheckBox1.Caption := ''; にしてにゃ。 もしCaptionも付けたければ Labelで代用するにゃ。 procedure Draw_FocusRect(Sender: TObject); var DC : HDC; begin with TControl(Sender) do begin DC := GetDC(Parent.Handle); DrawFocusRect(DC, Rect(Left-3, Top-1, Left+16, Top+18)); end; end; procedure TForm1.CheckBox1Enter(Sender: TObject); begin Draw_FocusRect(Sender); end; procedure TForm1.CheckBox1Exit(Sender: TObject); begin Draw_FocusRect(Sender); end;