掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.