Hi !
Ich hab' folgenden Code in meiner Anwendung:
Delphi-Quellcode:
procedure TFrmBlowFish.Wait(time: word);
var Start: Integer;
begin
Start := GetTickCount;
while GetTickCount - Start <= time do
application.ProcessMessages;
end;
procedure TFrmBlowFish.FrmBlowFishOnShow( Sender : TObject );
var I : integer;
begin
for I := 0 to mm_projekt.Lines.Count do
verschluesseln(mm_projekt.Lines.Strings[I]);
aktuelle_zeile.Caption := IntToStr(I);
Application.ProcessMessages;
Wait(30);
end;
der code der zweiten procedure wird auch abgearbeitet,
nur da ist ein Problem:
aktuelle_zeile ist ein Label und zeigt den Fortschritt an,
aber das Programm zeigt sich erst wenn die for-Schleife
durchgearbeitet ist! (Das ganze muss aber in der OnShow Prozedur bleiben!)
Kennt einer von euch eine Lösung?
Danke im Voraus!