Progressbar Wert geben

[Sharky]

Hai Waffen Affe

ich würde das ganze über ein eigens Property von TForm2 lösen. Zum Beispiel so:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    fprogessmax: Integer;
    procedure SetProgressmax(const Value: Integer);
  public
    { Public-Deklarationen }
    property progessmax: Integer read fprogessmax write SetProgressmax;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SetProgressmax(const Value: Integer);
begin
  fprogessmax := Value;
  ProgressBar1.Max := fprogessmax;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Position + 1;
end;

Delphi-Quellcode:

procedure TForm1.btn_1Click(Sender: TObject);
begin
  Form2.Show;
  Form2.progessmax := strtoint(edt1.text);
end;