delphi 如何更改程序里所有form的背景色?

Question

在那个地方,写一两句话可以改变所有form的背景色呀?

Answer 1

设置form的COLOR的属性，在里面选择你想要显示的颜色即可

Answer 2

不用写，直接在form属性的color修改

Answer 3

我有20多个form,一个一个设置太麻烦了,想一下把20多个都设置好了

Answer 4

所有窗体颜色为红色:
var
  i: Integer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  for i := 0 to Screen.FormCount - 1 do
    Screen.Forms[i].Color := $FF;
  Application.Run;
end.

Answer 5

选择Project->View Source，调出工程文件，作类似上面的修改

Answer 6

所有窗体颜色为红色:
Delphi(Pascal) codevar
  i: Integer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  for i := 0 to Screen.FormCount - 1 do
    Screen.Forms[i].Color := $FF;
  Application.Run;
end.

Answer 7

写个函数，传递窗体变量，赋值color属性

Answer 8

设置form的COLOR的属性，在里面选择你想要显示的颜色即可