Hallo Leute,
mein Problem liegt nicht genau beim bewegen der Bilder sondern später und zwar bewege ich die Bidler wie folgt:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
| procedure TForm2.MoveTimer(Sender: TObject);
begin
Application.ProcessMessages;
if rechts then
begin
if dot1.Left < comp.Left + dot1.Width then
begin
dot1.Left := dot1.Left+3;
dot2.Left := dot2.Left+3;
dot3.Left := dot3.Left+3;
end else
begin
rechts := false;
links := true;
end;
end;
if links then
begin
if dot3.Left > handy.Left + dot3.Width then
begin
dot1.Left := dot1.Left-3;
dot2.Left := dot2.Left-3;
dot3.Left := dot3.Left-3;
end else
begin
rechts := true;
links := false;
end;
end;
end; |
Das Problem besteht jetzt darin, das wenn ich mehere Dateien kopieren lasse (später), das die Bilder sich nur noch ruckelnd bewegen und nicht mehr flüssig. Weiß jemand vll was ich dagegen machen kann, das die Bilder troz kopieren von Dateien flüssig bewegt werden?
PS: Application.ProcessMessages; hab ich auch schon eingebaut, das hilft aber nicht viel. (Glaub es ist auch nciht wirklich für diesen Zweck)
Danke schon mal an alle fürs Helfen.
Mfg Dog
jaenicke