Formular aktualisieren

[wallwriht]

Hi Leute ich habe folgendes Problem:


Habe dieses Programm geschrieben

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;


begin
for i := 21 to 100 do
begin

Image1.Left:= i;
sleep(20)
end;
end;


jetzt will ich aber das das bild für den Nutzer erkennbar nach und nach verschoben wird.
Bei der Anzeige passiert dies aber auf einmal.
Wie kann ich das lösen?
Ich erinnere mich das e s einen Befehl gab mit dem man das Formular aktualisieren konnte aber welcher?

MfG

Wallwriht

[AbesCid]

Hallo!

Das ist relativ einfach!

Application.ProcessMessages; löst dein Problem.

Soweit ich weiß müsstest du es dann so einbinden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 21 to 100 do
begin
Image1.Left:= i;
sleep(20)
Application.ProcessMessages;
end;
end;

Probiers mal aus und wenns nicht geht, dann melde dich einfach noch einmal!

abescid

[wallwriht]

der befehl funktioniert allerdings flackert es jetzt.

kann man da was dagegen tun?

[AbesCid]

Was flackert?? Das Bild?
Du musst auch bedenken, dass sleep(20) eine sehr kurze Zeit ist! Auch hier wird die Zeit in Millisekunden angegeben!
Probiers mal mit einer höheren Zahl und schreib mal das hier:

Delphi-Quellcode:

begin
Image1.Left:= i;
Application.ProcessMessages;
sleep(20);
end;

Also nur die zwei Befehle verdreht.
Du musst kreativ sein und alle Anweisungen mal verändern und gucken, wie es dann aussieht

[Sir Rufo]

Application.ProcessMessages aktualisiert nicht das Formular (wenigstens nicht direkt)

Innherhalb des Formulars kann man mit Self.Repaint ein Neuzeichnen erzwingen.
Image1.Repaint zeichnet nur die Bildkomponente neu.

Application.ProcessMessages veranlasst die Anwendung alle anstehenden Nachrichten abzuarbeiten
u.a. wird dabei das Formual neu gezeichnet. Es passiert aber auch noch eine ganze Menge mehr.
(Übersetzen von englisch-deutsch der Begriffe ist hilfreich)

Es kommt immer darauf an, was man erreichen möchte.

Um einiges besser sollte die Bewegung mit einem Timer laufen.

[runningsoft]

Wenn Du für das Formular im Objektinspektor noch "DoubleBuffered" True einstellst, flackert das Bild auch nicht mehr.

Ich weiß allerdings nicht mehr, ab welcher Delphi-Version diese Eigenschaft erst verfügbar ist.


Steffen