Ich hab jetzt mal wieder ne Frage!
Ich habe diesen Quellcode geschrieben:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Width:=Image1.Width;
Bitmap.Height:=Image1.Height;
Image1.Picture.Graphic:=Bitmap;
with Image1.Canvas do
begin
pen.color:=clGreen;
pen.width:=10;
MoveTo(500,500);
end
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT: Image1.Left := Image1.Left - 10;
VK_RIGHT: Image1.Left := Image1.Left + 10;
VK_UP: Image1.Top := Image1.Top - 10;
VK_DOWN: Image1.Top := Image1.Top + 10;
end;
end;
end.
Und jetzt habe ich das Problem ,dass sich das Image bewegt und der grüne Punkt erst garnicht erscheint.
