Progressbar + Formwechsel

[stayfordelphi]

hi leute

bin neu in dem forum, weiß also nich, ob das schon mal gefragt wurde, jedenfalls hab ichs nich gefunden

mein Problem:
habe mir in eine form eine Progressbar eingebaut und diese mit einem timer versehen.
jetzt will ich sobald die bar voll is, dass er auf die nächste form umschaltet, jedoch find ich die passende methode einfach nich

kann mir bitte wer helfen

[mOzZzI]

Willkommen in der Delphi-PRAXiS

ganz einfach:

Delphi-Quellcode:

if ProgressBar1.Position=100 then
Form2.ShowModal;

Das dann nicht der Timer ewig weiter läuft stellst du ihn am besten am ende deiner Prozedur ab...
z.B.:

Delphi-Quellcode:

procedure TForm1.Timer1Timer;
begin
Timer1.Interval:=1000;  
ProgressBar1.Position:= ProgressBar1.Position +1;
if ProgressBar1.Position=100 then
Form2.ShowModal;
Timer1.Enabled:=False;
end;

//Edit
*Schlechtschraibfehler*

[stayfordelphi]

auf den quellcode wär ich auch schon gekommen^^, nur ich weiß nich in welcher methode ich den einfügen soll

ich hab mal ein paar ausprobiert, aber da kam entweder ein cpu-fehler, die zweite form hat sich sofort bei programmstart geöffnet oder es is gar nix passiert

[Khabarakh]

Zitat von stayfordelphi:

auf den quellcode wär ich auch schon gekommen^^, nur ich weiß nich in welcher methode ich den einfügen soll

Steht doch dran: im OnTimer deines Timers.
@Mozzzzi: Warum setzt du Interval jedes Mal neu? Außerdem wird bei dir der Timer sofort wieder deaktiviert.

[Frank Borland]

die Methode, die den Progressbar auf 100% (Position=max) stellt sollte auch das Formular aufrufen

Gruß


Malte

Zitat von stayfordelphi:

auf den quellcode wär ich auch schon gekommen^^, nur ich weiß nich in welcher methode ich den einfügen soll

ich hab mal ein paar ausprobiert, aber da kam entweder ein cpu-fehler, die zweite form hat sich sofort bei programmstart geöffnet oder es is gar nix passiert

[mOzZzI]

Zitat von Khabarakh:

Zitat von stayfordelphi:

auf den quellcode wär ich auch schon gekommen^^, nur ich weiß nich in welcher methode ich den einfügen soll

Steht doch dran: im OnTimer deines Timers.
@Mozzzzi: Warum setzt du Interval jedes Mal neu? Außerdem wird bei dir der Timer sofort wieder deaktiviert.

Oh, sry hab ich gar net bemerkt, wenn ich ja den Timer abschalt geht ja die Fortschittsanzeige auch net weiter...upps

[stayfordelphi]

und welche methode würdet ihr genau verwenden, des war nähmlich von anfang an mein problem??

für den text:

Delphi-Quellcode:

if ProgressBar1.Position=100 then 
Form2.ShowModal;

[stayfordelphi]

habs grad nochmal versucht, hab jetzt diesen quelltext

Delphi-Quellcode:

procedure TDataModule1.Timer1Timer(Sender: TObject);
begin
  Startseite.ProgressBar1.StepIt;
  if Startseite.ProgressBar1.Position=100 then
   Startseite.Visible := False;
   2.Seite.Visible    := true;                                   
   Timer1.Enabled:=False;
end;

und nun hab ich des problem, dass sich die Bar nicht mehr bewegt

[stayfordelphi]

halt kommando zurück, is mir grad erst aufgefgallen, die bewegt sich nur net, die steht bei ca. 30 % und die 2.Seite öffnet sich bei programmstart

[Khabarakh]

Du solltest in deinen Code noch einen begin-end-Block einfügen.