also...
das mit
Zitat:
Image1.Picture.Free;
funktioniert nicht.da bekomme ich eine fehlermeldung sobald ich die procedur starte.
und die andere variante mit
Zitat:
Image1.Picture:=Nil;
läuft..ABER mit weißen hintergrund..und das ist das was ich gerade nicht wollte.
also sieht man dann ein weißes viereck um meine figur..
ich zeig euch einfach mal die ganze procedure:
Delphi-Quellcode:
procedure TForm1.KeyFirst(var vorher: TWMKey);
begin
case vorher.CharCode of
VK_LEFT : begin
KeyLeft;
imagelist1.getbitmap(1,image2.picture.bitmap);
image2.Refresh;
sleep(100);
image2.Picture.free;
imagelist1.getbitmap(2,image2.picture.bitmap);
image2.refresh;
sleep(100);
image2.picture.free;
imagelist1.getbitmap(0,image2.picture.bitmap);
end;
VK_UP : KeyUp;
VK_RIGHT : begin
KeyRight;
imagelist1.getbitmap(3,image2.picture.bitmap);
image2.Refresh;
sleep(100);
image2.Picture:=nil;
imagelist1.getbitmap(4,image2.picture.bitmap);
image2.refresh;
sleep(100);
image2.picture:=nil;
end;
VK_DOWN : KeyDown;
VK_ESCAPE: Close;
end;
imagelist1.getbitmap(0,image2.picture.bitmap);
inherited;
end;
außerdem ist mein bewegungsablauf noch nicht so wie ich ihn haben möchte:
ich will , dass ,solange ich die pfeiltaste (links oder rechts) drücke, zwei bilder abwechselnt gezeigt werden..
und wenn ich nichts drücke soll das andere bild kommen (wie die figur steht);
bis jetzt ist es so, (wenn ich das mit image2.picture:=nil; benutze) dass alle drei bilder immer abwechselnt erscheinen..
das bild wo die figur steht sieht man immer dazwischen wenn die figur läuft..
habt ihr vielleicht dazu ne idee?
vielen dank für eure unterstützung
