[txforce]

Создаётся checkbox на панели

Код:

begin
  Panel := TPanel.Create(Self);
  Panel.Parent := Form1;
  Panel.Left := 20;
  Panel.Top := 20;

  Check := TCheckBox.Create(Self);
  Check.Parent := Panel;
  Check.Left := 5;
  Check.Top := 5;
  Check.Caption := 'RunFat';
end;

Админ: Пользуемся тегами при офрмлении кода!

Как сделать,чтобы при нажатии на checkbox на нём не создавался фокус?

[dr. F.I.N.]

Если достаточно того, чтоб CheckBox был без фокуса, можно его событии OnEnter прописать <TForm>.ActiveControl := nil;, если же надо, чтоб фокус оставался на предыдущем контроле, то тут можно "получить" предыдущий активный контрол и в событии OnEnter CheckBox-а прописать вместо nil прошлый контрол.
Ну и "убить" TabStop (=false)

[txforce]

а как прописать <TForm>.ActiveControl := nil;,?.т.е куда?Можно примерчик...

[M.A.D.M.A.N.]

заместо <TForm> класс твоей формы. Т.о.: Form1.ActiveControl := nil;

[txforce]

Сообщение от M.A.D.M.A.N.

заместо <TForm> класс твоей формы. Т.о.: Form1.ActiveControl := nil;

Как это прописать применительно к
Check := TCheckBox.Create(Self);
Check.Parent := Panel;
Check.Left := 5;
Check.Top := 5;
Check.Caption := 'RunFat';
?

[M.A.D.M.A.N.]

событие OnChange.

[Assistant]

Код:

...............
  procedure Change(Sender: TObject);
...........

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

.........

begin
  Check := TCheckBox.Create(Self);
  Check.Parent := Panel;
  Check.Left := 5;
  Check.Top := 5;
  Check.Caption := 'RunFat';
  Check.OnClick = Change;
end;

[txforce]

неполучается так

[Assistant]

не может этого быть

[txforce]

серьёзно невыходит(((((получается так, что не могу поставить галочку...

[Assistant]

поправил код, забыл что у TCheckBox нет события OnChange, заменил на OnClick

[dr. F.I.N.]

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

поправил код, забыл что у TCheckBox нет события OnChange, заменил на OnClick

Не то событие. Надо OnEnter. Я ж написал в своем ответе Событие возникает при "входе" в контрол... будь то TAB или щелчек мыши

[txforce]

Сообщение от dr. F.I.N.

Не то событие. Надо OnEnter. Я ж написал в своем ответе Событие возникает при "входе" в контрол... будь то TAB или щелчек мыши

чёт не могу представить реализацию может пара строчек кода наставит на путь истинный?у меня несколько checkbox"ов...

[Assistant]

от дурная голова, заработался на PHP совсем за 2 недели

[dr. F.I.N.]

Должен признать свою неправоту. Как вфыяснилось при написании тест-программы, первым срабатывает OnEnter, а потом уже OnClick - если в OnEnter делать Form.ActiveControl := nil, то у данного чекбокса не срабатывает OnClick и соответственно состояние флажка не меняется Ну а если "занулять" активный контролщ в OnClick, то очертания фокуса все-равно проскакивают и режут глаз

Надо поразмышлять. Извиняйте