如何设置焦点控件的字体？(100分)

Form里有很多“DBEdit”,我想单独设置它们的字体、字号，如何实现？

可以写在 DBEdit 的 OnEnter 和 OnExit 事件里面。
以下代码只需要对一个 DBEdit 写一次，其他 DBEdit 直接在事件里面选择它们即可：
procedure TForm1.DBEditEnter(Sender: TObject);
begin
if (Sender is TDBEdit) then
with TDBEdit(Sender)do
begin
Font.Color := clRed;
end;
end;

procedure TForm1.DBEditExit(Sender: TObject);
begin
if (Sender is TDBEdit) then
with TDBEdit(Sender)do
begin
Font.Color := clBlack;
end;
end;

多人接受答案了。