字段获取控件的有关问题

字段获取控件的问题
ClientDataSet1.FieldByName('crdate').FocusControl;//我们知道通过这个可以让字段的绑定控件获取焦点

那能过什么可以得到这个Control？

[解决办法]
也想知道, 帮顶
[解决办法]
function GetFocusedControl: TWinControl;
var
h: thandle;
i: integer;
begin
result := nil;
h := GetFocus;
if h <> 0 then
begin
for i := 0 to ControlCount-1 do
if TWinControl(Controls[i]).Handle = h then
begin
result := TWinControl(Controls[i]);
end;
end;
end;