Question

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

我控件很多，有edit和combobox

最好完整点，比如变色代码程序怎么写
而且能不能有一个程序让全部控件都实现了
要不一个个写有很多
上面兄台的程序不错，但在pagecontrol中的控件仿佛不变颜色，请问怎么解决

Answer 1

在一个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 2

procedure TForm1.EditEnterEvent(Sender: TObject);
begin
if Sender is TEdit then
TEdit(Sender).Color := clRed
else if Sender is TComboBox then
TComboBox(Sender).Color := clRed;
//这里也可以这样写
//TEdit(Sender).Color := clRed;
//强制转换为TEdit类，TComboBox和TEdit共同的类TWinControl没有Color属性,
//如果规范点就不要这样写，虽然不会出错。下同。
end;

procedure TForm1.EditExitEvent(Sender: TObject);
begin
if Sender is TEdit then
TEdit(Sender).Color := clBlue
else if Sender is TComboBox then
TComboBox(Sender).Color := clBlue;
end;

procedure TForm1.SetEnterExitEvent(aControl: TWinControl);
var
i: integer;
begin
for i:=0 to aControl.ComponentCount-1 do
begin
if aControl.Components[i].ComponentCount > 0 then
SetEnterExitEvent(aControl.Components[i])
else
begin
if (aControl.Components[i] is TEdit) or (aControl.Components[i] is TComboBox) then
begin
TEdit(aControl.Components[i]).OnEnter := EditEnterEvent;
TEdit(aControl.Components[i]).OnExit := EditExitEvent;
TComboBox(aControl.Components[i]).OnEnter := EditEnterEvent;
TComboBox(aControl.Components[i]).OnExit := EditExitEvent;
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetEnterExitEvent(Self);
end;