【结贴】关于统一修改窗体颜色的方法.[请求]

mengqf

现在窗体默认的颜色是灰色,客户反映太难看,想换成别的颜色,如何每个窗体都要设置颜色的话,太麻烦,有没有办法统一设置颜色,就像观察者模式一样,只需调整一处所有的观察者都跟个变化.

mengqf

能否点击功能菜单,启动功能前对功能的主窗体的颜色进行赋值呢?

jiahaiming

可以在系统主界面中统一设置：
procedure TFuncContainer.SetFunc(Value: TFunc);
begin
  FFunc := Value;

  if FFunc <> nil then
  begin
    FFunc.MainForm.Parent := Self;
    FFunc.MainForm.BorderStyle := TFormBorderStyle.bsNone;
    FFunc.MainForm.Align := TAlign.alClient;
    //jhm test 2009-10-16
    FFunc.MainForm.Color := Graphics.clWhite;
  end;
end;
注意：这里只是修改了窗体颜色，对窗体内的控件不能全部生效，如：button

mengqf

结贴