FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Cambio de color a un componente
Hola, tengo una pequeña duda haber si me ayudan a resolverlo.
Tengo varios edit's, combobox en un formulario todos tienen el misco color pero cuando el usuario selecciona uno de ellos u obtiene el foco para escribir o entrar datos, cambio el color solo del componente seleccionado y el anterior lo regreso al color normal lo hago llamando a una funcion y paso la varialbe sender pero no me funciona solo me cambia de color el panel que contiene todos los componentes ojala puedan ayudarme a resolver Código:
procedure Form1.Color(sender:Tobject); begin edit1.color := ClSilver; edit2.color := ClSilver; edit3.color := ClSilver; edit4.color := ClSilver; edit5.color := ClSilver; edit6.color := ClSilver; cb1.color := ClSilver; cb2.color := ClSilver; dt1.color := ClSilver; self.color := ClWhite; Label1.caption := Self.Hint; end; procedure TForm1.Edit1Click(Sender: TObject); begin Color(Sender); end; |
#2
|
||||
|
||||
¿Qué te parece así?
__________________
E pur si muove |
#3
|
|||
|
|||
Gracias Marto por tu respueta tan rapido, la verdad que me ayudo muchisimo, supongo que tengo que validar cuando sean otros componentes como combobox, o datetimepicker. de todos maneras tu ayuda me sirvio muchisimo.
Gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|