turminator
14-07-2006, 16:59:16
Hola queria poner a mi formulario 70 botones y 70 Tedits. El problema que me encuentro es que con tantos objetos necesitaria una Form muy grande.
para solucionar el tema de los botones he pensado en usar un combox y asignarle el evento onchange:
procedure TFPrincipal.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Negro' //si el texto de ComboBox1 es igual a negro
then //entonces
Memo1.Font.Color := clBlack // el color de fuente de Memo1 es igual a (Black)negro
else if //en cambio si
ComboBox1.Text = 'Azul' then
Memo1.Font.Color := clBlue else if
ComboBox1.Text = 'Amarillo' then
Memo1.Font.Color := clYellow else if
ComboBox1.Text = 'Verde' then
Memo1.Font.Color := clGreen else if
ComboBox1.Text = 'Rojo' then
Memo1.Font.Color := clRed ;
(Ejemplo) Pero para tener tantos Tedits no se me ocurre ninguna solución. Que me recomendais?
para solucionar el tema de los botones he pensado en usar un combox y asignarle el evento onchange:
procedure TFPrincipal.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Negro' //si el texto de ComboBox1 es igual a negro
then //entonces
Memo1.Font.Color := clBlack // el color de fuente de Memo1 es igual a (Black)negro
else if //en cambio si
ComboBox1.Text = 'Azul' then
Memo1.Font.Color := clBlue else if
ComboBox1.Text = 'Amarillo' then
Memo1.Font.Color := clYellow else if
ComboBox1.Text = 'Verde' then
Memo1.Font.Color := clGreen else if
ComboBox1.Text = 'Rojo' then
Memo1.Font.Color := clRed ;
(Ejemplo) Pero para tener tantos Tedits no se me ocurre ninguna solución. Que me recomendais?