如何轻松统一软件界面的风格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;