Запрет смены фокуса чекбокса.

[Mixasik]

Здраствуйте, господа. Возник такой вопрос: необходимо запретить смену фокуса элементов на форме, когда чекбокс "checked", то есть как только мы его выделили уже должно быть не возможно сменить фокус с этого компонента...Например, табом? Можно сделать это как то попроще?

[mihali4]

Сама по себе постановка задачи весьма противоречива - если мы каким-либо образом сделали CheckBox1.Checked:=True, то по вашему же условию мы с него уже не уйдем... В таком виде это реализуемо, например:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if CheckBox1.Checked then
begin
CheckBox1.SetFocus;
exit;
end;
...
end;// эта же процедура назначается событию FormKeyUp

procedure TForm1.Edit1Enter(Sender: TObject);
begin
if CheckBox1.Checked then
begin
CheckBox1.SetFocus;
exit;
end;
...
end;// эта же процедура назначается событию OnEnter для всех остальных компонентов

[Joe_Tribbiani]

ну, попробуй так
напиши в событии onmousemove формы :

checkbox1.SetFocus;

а, с клавишей tab щас я попробую...

[Mixasik]

mihali4, насчет этого думал, только вот каждому компоненту лень прописывать)
Joe_Tribbiani, ну в принципе мышка у меня отключена и она не может изменить фокус компонентов, остается только там, да и вообще только клавиатура.

[mihali4]

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

mihali4, насчет этого думал, только вот каждому компоненту лень прописывать)

А я разве где-то говорил, что это надо прописывать каждому компоненту???
Делается очень просто - например, для листбокса какого-нибудь - в инспекторе объектов выбираем в его событии OnEnter из выпадающего списка "Edit1Enter" и все...
А прописывается это один раз - в Edit1Enter, как я привел в примере.

[Mixasik]

mihali4, спасибо об этом я что-то и не подумал - попробую)

[roach1967]

В данном случае удобнее использовать обработку события по потери фокуса (onExit) самого чекбокса:

procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
	if CheckBox1.Checked then CheckBox1.SetFocus;
end;

Тогда ни мышкой ни с клавиатуры с него не сдвинуться.

[Mixasik]

Большое спасибо! Помог!