also jetzt erst mal danke an alle die schnellen antworten ^^
ich hab das jetzt mal so gemacht wie Helmi gesagt hat weil das am wenigsten
bei mir auslößt
, das sieht jetzt so aus:
Delphi-Quellcode:
var
Form1: TForm1;
Zahl1: Integer;
Zahl2: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
zahl1:= strtoint (edit1.text);
form2.Button1.enabled:=true;
form2.Timer1.enabled:=true;
form2.Timer2.Enabled:=true;
form2.ProgressBar1.Enabled:=true;
form2.Label1.Enabled:=true;
form2.progressbar1.Max:= zahl1 ;
end;
das funktioniert aber auch irgendwie nicht.