procedure TControl.SetFocused(const Value: Boolean);
asm
         PUSH  ESI
         MOV   ESI, EAX
         TEST  DL, DL
         JZ    @@1
         {$IFDEF USE_FLAGS}
         //TEST  [ESI].fStyle.f2_Style, 1 shl F2_Tabstop
         {$ELSE}
         //CMP   [ESI].fTabstop, 0
         {$ENDIF}
         //JZ    @@exit

tabstop is false not means can't get focus, need to comment it.

no answer?

It was working for yers this way. If you still want to focus the control programmatically, just use API function SetFocus(C.Handle). I think it is sufficient. Otherwise some functions can become not working.

i see it, thank your reply