Поменять цвет второй формы

[donpizzz]

Есть приложение, состоящее из двух форм. Нужно программно поменять цвет у двух форм сразу через ColorDialog.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
  Form1.Color := ColorDialog1.Color;
end;

Что нужно добавить в этот код, чтобы поменять цвет у второй формы?

[SERG1980]

Сообщение от donpizzz

Есть приложение, состоящее из двух форм. Нужно программно поменять цвет у двух форм сразу через ColorDialog.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
  Form1.Color := ColorDialog1.Color;
end;

Что нужно добавить в этот код, чтобы поменять цвет у второй формы?

Это издевательство какое то

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
  begin
   Form1.Color := ColorDialog1.Color;
   Form2.Color := ColorDialog1.Color;
  end;
end;

[Alt]

Ахахах, автор у тебя что на плечах вместо головы?

[donpizzz]

Ошибку так выдает, умники

[donpizzz]

Проблема решена следующим образом

procedure TForm2.FormCreate(Sender: TObject);
begin
Color:=Form1.color;
end;

[Alt]

Сообщение от donpizzz

Ошибку так выдает, умники

Может, ты просто пытаешься перекрасить форму до того, как она создается?