Leer un edit

[[Delphius]]

Buenas.

Amigo Caral, si la memoria no me falla, existe una función que dice algo así: StrToColor o StringToColor... no recuerdo bien, pero recuerdo haberla visto.
Me encantaría probar pero no dispongo de Delphi en esta PC, mi equipo está en service hasta el martes o miercoles

Considero que el problema de ingresar un número en un edit y asociarlo a un color para shape es una alternativa un tanto rebuscada.
Espero que no te hayas sentido ofendido JoseFco.
Si los números son fijos y no se necesita agregar más, podríamos emplear un ComboBox con el nombre del color y dejar al usuario que elija el más adecuado.

Considero que es un buen control, con esto en mente y basandome en el codigo de caral se puede tener algo como:

Código Delphi [-]
const
ARRAY_COLOR: array [0..MAX_COLOR - 1] of TColor  = (...);

De modo que podemos asociar al índice del combo con cada color. Por ejemplo en el OnChange();

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Shae1.Brush.Color := ARRAY_COLOR[ComboBox1.ItemIndex];
end;

La idea está, habría que pulirla pero creo se entiende.

Saludos,