Grafikaufbau flackert

[Timi-loader]

hallo
und.. ja ich weiß dieses thema gibts auchschon öfters.. aber ich habe damit irgendwie keinen erfolg gehabt.. also jedenfalls hab ich auchschon vor dem verändern der grafik, also position und so und danach hide-show gemacht aber das reicht immernoch nicht.. also es flackert zwar schon weniger aber die figur selbst die man mittels tatertur über einen timer laufen lässt bewegt sich soch relativ und anscheinend zu schnell für delphi.. also sie flackert ebend..
hat da jemand noch ne andere lösung? ... thx
mfg Timi-loader

[idontwantaname]

Form1.DoubleBuffered := True; Am besten im OnCreate oder so aufrufen

[Luckie]

Was hast du denn bisher gemacht? Und wie und wo zeichnest du?
DoubelBuffered?
Bitmap im Speicher?
WM_ERASEBKGND?
...?

[Timi-loader]

also das mit dem DoubleBuffered hab ich grade ausprobiert.. also flackern tuts icht mehr aber es stockt ziemlich krass.. was warscheinlich an meinem alten rechner liegt aber das programm sollte eigendlich auf älteren rechnern auch laufen..

neue bilder die eingebunden werden nehm ich immer loadfromfile aber das passiert nicht so oft.. hauptsächlich flackerts bei solchen sachen:

Delphi-Quellcode:

procedure TForm1.usTimer(Sender: TObject);
begin
typ1.Hide;
typ1.Left:=typ1.Left + 2;
 typ1.Top:=typ1.Top + 1;
 typ1.Show;
end;

.. was in diesem fall der bewegung bei tastendruck dient(teil davon) .. und in ähnlicher art auch beim "hüpfen" also hoch und runter im wechsel timergesteuert

[Luckie]

Das wird daran liegen, dass der gesamte Hintergrund neu gezeichnet wird. WM_ERASEBKGND sollte da Abhilfe schaffen.

[Khabarakh]

Ein TImage sollte nicht bewegt werden, dazu ist es einfach nicht programmiert. Nimm ein Image, das den ganzen Client-Bereich (bzw. so viel, wie du eben brauchst) abdeckt und arbeite mit einem OffScreenBitmap, wie es Luckie schon erwähnt hat.

[Timi-loader]

also ich hab jetzt bei den proceduren oben:
procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND; dazugefügt und einfach irgendwo ins programm:

Delphi-Quellcode:

procedure TForm1.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
  Message.Result := -1;
end;

weils so auch in den gefundenen treath drinnen stand.. und ähm.. muss ich nun noch
das mit WMEraseBkgnd(typ1); oder so aufrufen?.. also so dorekt gehts net hab ich schon probiert..

..und das mit dem offscreenbitmap kapier ich nicht ganz o.o