Question

delphi中怎么让控件获得焦点时变颜色

我控件很多，有edit和combobox，最好是有一个统一的程序
不要在每个控件事件中都去写相应程序
能不能完整点，比如变色代码程序怎么写
而且能不能有一个程序让全部控件都实现了
要不一个个写有很多

Answer 1

建议你使用换肤控件，加上后能使所有控件改变外观，并且鼠标移入移出都有效果。
我现在使用VCLSkin，不需要改变代码，放上控件选择皮肤即可。

Answer 2

在一个Form中判断控件的类别然后再来改变颜色
with Form1 do
begin
for i:=0 to self.ComponentCount-1 do
begin
if self.Components[i] is TEdit then
TEdit(self.Components[i]).Color:=Red;//$AA0012221
if self.Components[i] is TCombobox then
TCombobox(self.Components[i]).Color:=Green;
end;
end;

Answer 3

if Edit1.Focused then
begin
// 变色代码
end;