[FreeUser]

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then  begin statictext1.Font.Color:=colordialog1.Color;  end; end;

Не работает Т.е. не меняется цвет шрифта.