如何轻松统一软件界面的风格delphi

老道的程序员们都知道，在软件业界有一个默认的原则，那就是软件各界面的风格要统一。包括界面上各控件的字体颜色和大小。是不是每要新加一个界面都要设置字体的颜色和大小呢。答案是可以不用那么麻烦。

首先设计一个父窗体，供其它窗体继承。在父窗体的构造函数里写上对界面控件字体风格的处理代码，那么其它子窗体就会自动复用了。

procedure TfrmFather.ClearIME;//输入法

var

  i:Integer

begin

  if self.Enabled and Self.Visible then self.setfocus;

  for i:= 0 to componentCount - 1 do

  begin

      if Component[i] is TMemo then

          TMemo(Components[i]).ImeName :=''

     else if Component[i] is TEdit then

          TEdit(Components[i]).ImeName :=''

     else if Component[i] is TDateTimePicker then

          TDateTimePicker(Components[i]).ImeName :=''

     else if Component[i] is TComboBox then

          TComboBox(Components[i]).ImeName :=''

     else if Component[i] is TDBGridEh then

          TDBGridEh(Components[i]).ImeName :=''

  end;

end;

procedure InitUserInterface;

begin

  if (Width >= Screen.Width) or (Height >= Screen.Height) then WindowState := wsMaximized;
  Self.Font.Charset := SysParams.FontCharSet;//sysParams可以是一个类的实例也可以是一个纪录。参数可以保存在数据库或ini中
  Self.Font.Name := SysParams.FontName;
  Self.Font.Size := SysParams.FontSize;
  for i := 0 to Self.ComponentCount - 1 do
  begin
   if Self.Components[i].Tag >=100 then Continue;
    if Self.Components[i].InheritsFrom(TEdit) then
    begin
      TEdit(Self.Components[i]).Text := '';
      TEdit(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TMemo) then
    begin
      TMemo(Self.Components[i]).Text := '';
      TMemo(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TComboBox) then
    begin
      TComboBox(Self.Components[i]).ItemIndex := -1;
      TComboBox(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TDateTimePicker) then
    begin
      TDateTimePicker(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TListBox) then
    begin
      TListBox(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TCheckListBox) then
    begin
      TCheckListBox(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TSpinEdit) then
    begin
      TSpinEdit(Self.Components[i]).Color := SysParams.EditClr;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TListView) then
    begin
      TListView(Self.Components[i]).Color := SysParams.TreeClr;
      TListView(Self.Components[i]).ReadOnly := True;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TTreeView) then
    begin
      TTreeView(Self.Components[i]).Color := SysParams.TreeClr;
      TTreeView(Self.Components[i]).ReadOnly := True;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TCheckTree) then
    begin
      TCheckTree(Self.Components[i]).Color := SysParams.TreeClr;
      TCheckTree(Self.Components[i]).ReadOnly := True;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TDBGridEh) then
    begin
      TDBGridEh(Self.Components[i]).Color := SysParams.GridClr;
      TDBGridEh(Self.Components[i]).FixedColor := SysParams.TitleClr;
      TDBGridEh(Self.Components[i]).ReadOnly := True;
      continue;
    end;
    if Self.Components[i].InheritsFrom(TDBGrid) then
    begin
      TDBGrid(Self.Components[i]).Color := SysParams.GridClr;
      TDBGrid(Self.Components[i]).FixedColor := SysParams.TitleClr;
      TDBGrid(Self.Components[i]).ReadOnly := True;
      continue;
    end;
  end;

end;