Фокус и св-во enabled

[megachuhancer]

Можно ли как-нибудь сделать так, чтобы контрол не мог получить фокус и при этом у него св-во enabled = true. Просто, когда enabled = false контрол меняет внешний вид. Тем более TButton нельзя будет нажать.

[Stilet]

не мог получить фокус

А какими путями он у тя получает фокус? Нажатием мышки или перемещением по TABу?

[megachuhancer]

И тем и другим. Нужно чтобы ни тем, ни другим способом не получал. Т.е. кликнули - и фокус на кнопке не остается. А по табу - вообще не должен переходить.

[SERG1980]

НУ что бы по табу не переходил, выставите св-во tabstop:=false
ну а по клику можно так

procedure TForm1.Button1Click(Sender: TObject);
begin
 FindNextControl(Sender as TWinControl,true,true,false).SetFocus;
end;

[megachuhancer]

Спасибо.__