Developing.ru

Мне задали задачу сделать часы в D7, это оказалось не так сложно. Но дальше мне дали доп. задание, с которым у меня возникли трудности.
Код программы

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Timer1); //передаёт управление процедуре Timer1Timer(Sender: TObject);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now)+' PM';
//в надпись на Label1 присваевается текущее время, переведённое в строку с добавление символов
end;

end.


доп зпдание заключается в том, что надо Сменить цвет фона надписи, чередуя цвета случайным образом через три секунды времени.(не используя дополнително компонент Timer)
помогите пожалуйста, напишите тут или на почту мне, iskis2034@gmail.com
если можете скинте код программы.

Привет! Пиши, попробую помочь - з4-з6-з15

Самое простое - добавьте целую переменную в секцию var формы.
Внутри Timer1Timer прибавляете к ней 1 (если таймер у вас с интервалом 1 сек), и проверяете, если она равна 3 - сменить цвет фона и установить ее в 0.
Если вы эту задачу сделали сами, то и такой простой алгоритм тоже реализуете

255507394. Не вопрос.