Hallo,
erstmal bitte nicht lachen, ich habe noch nicht viel erfahrung mit programmieren.
Ich versuche ein kleines programm zu schreiben mit dem sich eine progressbar füllt, und paralell dazu der fortschritt als zahl über ein Panel ausgegeben wird.
die Progressbar läuft auch perfect aber das problem ist, dass das Panel welches den fortschritt anzeigen sollte, diesen erst nachdem das ganze zu ende gelaufen ist anzeigt. es ist als ob die while schleife für diesen befehl ignoriert wird.
ich hoffe ihr könnt helfen.
mfg Nico25394
hier mein Quellcode:
erstmal bitte nicht lachen, ich habe noch nicht viel erfahrung mit programmieren.
Ich versuche ein kleines programm zu schreiben mit dem sich eine progressbar füllt, und paralell dazu der fortschritt als zahl über ein Panel ausgegeben wird.
die Progressbar läuft auch perfect aber das problem ist, dass das Panel welches den fortschritt anzeigen sollte, diesen erst nachdem das ganze zu ende gelaufen ist anzeigt. es ist als ob die while schleife für diesen befehl ignoriert wird.
ich hoffe ihr könnt helfen.
mfg Nico25394
hier mein Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Progressbar1: TProgressBar;
Button2: TButton;
Label1: TLabel;
Label3: TLabel;
Panel1: TPanel;
procedure Button2Click(Sender: TObject);
private
i:integer;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Progressbar1.Position:=0;
i:=0;
while Progressbar1.Position<100 do
begin
Progressbar1.Position:= Progressbar1.Position +20;
i:=i+200;
Panel1.caption:=inttostr(i);
end;
Form1.Color:=clred;
end;
end.
Zuletzt bearbeitet: