bmp bewegen

[Cöster]

Zitat von quxy:

Hi, danke für den Tipp..hab es geschafft allerdings ist das Problem, dass sich so immer nur ein Bild bewegen lässt...

Delphi-Quellcode:

{...}
procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  Hexen2.BeginDrag(false);
end;

Probier's doch mal so:

Delphi-Quellcode:

procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  TImage(Sender).BeginDrag(false);
end;