Перемещение по форме
Перемещение по форме
Перемещение по форме procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button<>mbLeft then move:=False else begin move:=True; x0:=x; y0:=y; end; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if move then Image1.SetBounds(Image1.Left+x-x0,Image1.Top+y-y0,Image1.width,Image1.height); end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move:=False; end; move, x0, y0 - глобальные переменные.
