Подчеркивания у checkbox

[bahakifo]

Как убрать вот эти точки вокруг текста?

[Zis67]

procedure TForm1.FormCreate(Sender: TObject);
begin
checkbox1.ControlState:=[csFocusing];
end;

[bahakifo]

Сообщение от Zis67

procedure TForm1.FormCreate(Sender: TObject);
begin
checkbox1.ControlState:=[csFocusing];
end;

не помогает

[ych_del]

Не так залогинился.

Итак. Делаешь чекбокс без Caption, рядом кладешь Label. Лабелу пишешь обработчик OnClick:

procedure TfrmMain.Label1Click(Sender: TObject);
begin
   CheckBox1.Checked := not CheckBox1.Checked
end;

[bahakifo]

Сообщение от ych_del

Не так залогинился.

Итак. Делаешь чекбокс без Caption, рядом кладешь Label. Лабелу пишешь обработчик OnClick:

procedure TfrmMain.Label1Click(Sender: TObject);
begin
   CheckBox1.Checked := not CheckBox1.Checked
end;

по другому не как?

[tsar_]

Как убрать вот эти точки вокруг текста?

Ради уточнения: а когда они появляются?

не помогает

Странно, у меня код Zis67 работает.
Какая версия delphi?

[Stilet]

когда они появляются?

При фокусе с клавиатуры видимо.

по другому не как?

Ну пропиши в свойстве TabStop значение False, чтоб фокус не ловило от перехода по табулятору.

[tsar_]

Сообщение от Stilet

При фокусе с клавиатуры видимо.

Я подозреваю об этом)
+ при щелчке мышой на чекбоксе.
Но ТС не написал происхождение рамки, вот и спросил.

Если просто добавить

CheckBox1.TabStop:=false;

то фокусная рамка все равно появится при щелчке мышью...

[Dmitry33RU]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ActiveControl := nil;
end;

[Аватар]

Не поможет - при клике на чекбоксе фокус ввода все равно будет показан