Ver Mensaje Individual
  #7  
Antiguo 16-05-2014
wilcg wilcg is offline
Miembro
 
Registrado: abr 2014
Posts: 107
Reputación: 11
wilcg Va por buen camino
Ecfisa, gracias amigo ya esta solucionado efectivamente el problema era eso, cambie la forma de crear los edit y funciona perfecto.
Código Delphi [-]
      for l := 0 to XML.DocumentElement.ChildNodes.Count - 1 do
      begin
          NComponente := XML.DocumentElement.ChildNodes[l];
          with TEdit.Create(self) do
          begin
            Parent:= ScrollB;
            Name:= 'txtEdit'+IntToStr(EditCount);
            Tag := NComponente.Attributes['ID'];
            Width:= NComponente.Attributes['Ancho'];
            Height:= NComponente.Attributes['Alto'];
            Left:= NComponente.Attributes['x'];
            Top := NComponente.Attributes['y'];
            Font.Color := NComponente.Attributes['Color'];
            if NComponente.Attributes['Tipo'] = '*' then
            begin
              PasswordChar := '*';
              PopupMenu:= PMContraseña;
            end;
            Inc(EditCount);
          end;      
      end;

este código funciona para mi proyecto
Responder Con Cita