Ver Mensaje Individual
  #4  
Antiguo 16-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por angelp4492 Ver Mensaje
Si pero porqué cuando coloco un progresbar en el formulario si me acepta valores mayores de 65535, y sin embargo creándolo desde una clase no?
Hola angelp4492.

No creo que ese sea el motivo.

Para verificar que, independientemente de donde se lo cree, acepta el máximo valor posible para una propiedad de tipo Integer podés hacer:
Código Delphi [-]
...
type
  TDummyClass = class(TObject)
  public
    ProgressBar: TProgressBar;
    constructor Create(AOwner: TComponent);
    destructor Destroy;
  end;
  TForm1 = class(TForm)
  ...

implementation

{ TDummyClass }
constructor TDummyClass.Create(AOwner: TComponent);
begin
  inherited Create;
  ProgressBar:= TProgressBar.Create(nil);
  ProgressBar.Max:= MaxInt
end;

destructor TDummyClass.Destroy;
begin
  ProgressBar.Free;
  inherited Destroy
end;

{ TForm1 } 
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: TDummyClass;
begin
  DC:= TDummyClass.Create(Self);
  try
   //...
   DC.ProgressBar.Parent:= Self;
   ShowMessage(IntToStr(DC.ProgressBar.Max))
  finally
    DC.Free
  end
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-05-2012 a las 11:48:12.
Responder Con Cita