Cita:
Empezado por angelp4492
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
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;
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.