请看

Question

问题是这样的:
  我在一个表单中放的有TDBEDIT,TEDIT,LIST,COMBOX,DBGRID等各种控件,我现在想实现类似与管家的哪种效果:即当控件得到焦点时改变焦点的背景色和字体的颜色(GRID类除外,保持原色).这种功能怎么样实现?   帮帮忙,谢谢!!!

Answer 1

procedure TFrmMain.Edit1Enter(Sender: TObject);
Var
  s_Temp: TComponent;
begin
  if (s_Temp is TEdit) then (s_Temp as TEdit).Color := clAqua
  else if (s_Temp is TCombobox) then (s_Temp as TCombobox).Color := clAqua;
  //如果还有的话继续加入end;procedure TFrmMain.Edit1Exit(Sender: TObject);
Var
  s_Temp: TComponent;
begin
  if (s_Temp is TEdit) then (s_Temp as TEdit).Color := clWhite
  else if (s_Temp is TCombobox) then (s_Temp as TCombobox).Color := clWhite;
  //如果还有的话继续加入end;对引用的每一个控件的都调用这两个事件