De números enteros a TColor

[num11]

Hola a todos, quiero saber si hay alguna manera de convertir un color que tengo (su valor entero) a su correspondiente nombre del color (clWhite,clRed,..etc). Lo que pasa que obtengo a través de un ColorDialog un color X, pero este color se me guarda en una variable del tipo entero, ahora debo mostrar en un Grid el color que seleccione, pero no por el valor entero, sino por el nombre del color. Gracias de antemano XD!.

[dec]

Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  // 65535 = clYellow
  Self.Color := TColor(65535);
end;

[num11]

¿O_o? Hola y gracias por contestar, pero no entendí bien XD, según mis pruebas, con el TColor("#Color") y al pasarlo a string (IntToStr) me sigue dejando el nùmero del color y no el nombre como tal (clBlue,clRed).

[Neftali [Germán.Estévez]]

Empezado por num11

¿O_o? Hola y gracias por contestar, pero no entendí bien XD, según mis pruebas, con el TColor("#Color") y al pasarlo a string (IntToStr) me sigue dejando el nùmero del color y no el nombre como tal (clBlue,clRed).

Creo que lo que tu necesitas es la función ColorToIdent, que dado un color te devuelve si corresponde a alguno de los identificadores que utiliza Delphi; clBlack, clWhite, clInfoBk,.... (unit Graphics)

[num11]

Saludos y gracias por contestar pero ya resolvi mi problema, por si alguien lee esto, solo comento que para indicar en un label, celda, ComboBox, etc, el color que se está utilizando ("clBlue","clRed",etc) a partir del número de color (1,259,etc), se ocupa la función "ColorToString", la cual recibe como argumento un "TColor". Creo es más entendible con un ejemplo:

//Pongo en la primera celda del StringGrid el color en cadena: "clBlack"
StringGrid1.Cells[0,0] := ColorToString(TColor(1));