Mudar as letras de cor, e ficar mudando.....................

05/12/2003

1

Tenho esse codigo:

Olá,

É muito simples!

1) Coloque um componente TTimer no seu formulário, e modifique a propriedade Interval para 100.

2) Em seguida no EVENTO OnTimer do componente TTimer, insira o seguinte código:

Código:
procedure TForm1.Timer1Timer(Sender: TObject);
var tempcap : string;
z : integer;
begin
tempcap := ´´;
if FlagDir = true then x := x+1 else x := x-1;
for z := 1 to x do tempcap := tempcap + ´ ´;
tempcap := tempcap + trim(Form1.caption);
Form1.caption := tempcap;
if x = 10 then FlagDir := false;
if x = 1 then FlagDir := true;
end;


3) No evento FormCreate do formulário, coloque:

Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
FlagDir := true;
x := 1;
end;


4) Não esqueça de declarar as variáveis x (integer) e FlagDir (boolean) na seção var (antes de implementation) do seu form.

Se você quiser que o caption ande mais devagar ou mais rápido, aumente ou diminua o calor da propriedade Interval do componente TTimer. Se você quiser que o espaço de movimentação do caption seja maior (no presente exemplo ele move-se 10 caracteres para cada lado), simplesmente aumente o valor do x na linha:

Código:
if x = 10 then FlagDir := false;

--------------

Gostaria de saber como faço pras letras que andam no form, ficarem de cor diferente, sei la, um random, ou qq coisa do genero....

Valew obrigado, quero que mude de cor, valew...
Falow ae


Responder