[Tutorial] Criando cores pelo Delphi [DELPHI]

[~ Heatlex. 11]

No evento oncreat coloque:

var

Cor1,Cor2,Cor3:byte;//As cores devem ser colocadas em byte

CorFormada:TColor;//tcolor porque a funcao e em RGB

begin

Cor1:=25;

Cor2:=33;

Cor3:=255;

Corformada:=TColor(RGB(Cor1,Cor2,Cor3));

Form1.Color:=Corformada;//retorna a cor formada

 

Créditos:Aboult