|
Te voy a dar una idea, espero que te ayude.
1 - selecciona un componente tpanel y ponlo en tu formulario
2 - luego selecciona un componente tcolordialog.
3 - pon dos tbuttom.
ahora vamos a codificar en el evento click del boton:
procedure TForm1.button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then //ejecutamos la ventana de colores
begin //si acepto la ventana entonces
panel1.color := colordialog1.color; //asignamos el color al panel
// Para verlo en pantalla
end
end;
// en este otro boton puedes almacenar el color en tu table
procedure TForm1.button2Click(Sender: TObject);
begin
table1.open;
table1.append;
table1.fieldbyname('color').asinteger := panel1.color;
table1.post;
end;
bueno ahi tienes como mostrar el color en pantalla, y como almacenarlo en tu base de datos. Espero que te sirva
|