F.o.r.m mudando de cor !

[NovaMeta 0]

Bom dia , tarde , noite galera da WC eu vim aqui encinar

Alguns de voçes a fazer o F.o.r.m mudar de cor , bom vamos lá !

 

Apenas escolha o procedure em qual vai colocar o codigo , apague o begin e end e cole o seguinte codigo :

 

var

R:byte; //DECLARA A VARIAVEL DA COR RED

G:byte;//DECLARA A VARIAVEL DA COR GREEN

B:byte;//DECLARA A VARIAVEL DA COR BLUE !

begin

randomize;

R:=RANDOM (255);

G:=RANDOM (255);

B:=RANDOM (255);

begin

F.o.r.m1.Color:=RGB(R,G,B); //MUDA A COR DO F.O.R.M CONFORME OS DADOS DO R,G,B QUE DECLARAMOS ALI EMCIMA...

end;

end;

 

 

Agora teste a sua aplicação :D

 

A minha ficou assim :

 

Prints

 

 

 

Imagem 2

 

 

Aconselho colocar em um timer :)

 

E assim ela vai ficar mudando de cores , é uma função simples , mas que pode dar mas vida para sua aplicação ;D

 

Flw galerinha !

 

 

 

Creditos : NovaMeta :)

 

Se ajudei agradeça !

[FOXxER 0]

Mais facil e usar Skins e ate msm e so clicar na for.m e mudar a cor deixando sem mais codigos e mais pesada

[HarryCuecaoDoidao 0]

kkkkkkkkkkk, Quem não sabe mudar a cor do formulario amigo,muito bom por ensinar isso acho que quando eu fuçava delphi a 1 coisa foi isso que aprendi kkk!

[MisterLyonel 0]

Nossa realmente deve ser dificil mudar a cor do form1 .....