Hi Forum,
I am new to Lazarus and Delphi, I am trying to set the form color by using the Timer, in other words I would like the form color to change 3 different colors in the first 3 seconds.
the pseudo code I have is;
procedure TForm1.Timer1Timer(Sender: TObject);
var interval : Integer;
begin
interval:=Timer1.ComponentIndex;
case interval of
1 : Form1.Color:=clred;
2 : Form1.Color:=clBlue;
3 : Form1.Color:=clGreen;
end;
end;
end.
of course I could be completely lost...any help would be appreciated.
Regards