Ver Mensaje Individual
  #17  
Antiguo 12-07-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola sancarlos, digamos que nuestro campo se llame estado y también supongo que estas controlando que si el componente ya esta creado, ya no lo vuelvas a crear, con el codigo que te explique arriba.

Código Delphi [-]
var
 Estado : Integer;
 Edit : TComponent;
begin
 ......
 Estado := adoportsportnumber.AsInteger;
 
 Edit := FindComponent(adoportsportnumber.AsString);
 if Assigned(Edit) then
  begin
    if ScrollBox1.ContainsControl(TControl(Edit)) then
     begin
       showmessage('el componente esta en el ScrollBox, ya no debemos crearlo y lo pintamos de un color x');
       if Estado=1 then
        begin
          TEdit(Edit).Color := clYellow;
          TEdit(Edit).Font.Color := clGreen;
        end
       else
         .......//el otro color
     end
    else
     begin 
       showmessage('el componente no esta en el ScrollBox y lo creamos de otro color igual segun al estado');
      // Creamos tMyBoton y pintamos segun al estado
      tMyBoton := Tedit.create(self);
      .....
      .....
      if Estado=1 then       
       begin
         tMyBoton.Color:=clYellow;
         tMyBoton.font.Color:=clGreen;
       end
      else
        .....//pintamos el otro color 
     end;
  end;

mas o menos asi sería el codigo y talvez sería mejor que tu variable se llamara TMyEdit y no te TMyBoton, ya que estas creando un edit.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita