перемещение image

[dmitriegorovih]

Ужос какие сложности, не так ли?

Не в этом дело просто мне надо чтоб image был с алфа прозрачностью, а если зади будет панель то зачем вообще нужен image?

[|Александр|]

Сообщение от Stilet

Позволь показать тебе еще один способ:
Кидаем на форму TPanel На нее кидаем TImage, и расстягиваем Image на AlClient чтоб оно заполнило всю панель.
Далее в в обработчике зажатия мышки для Image пиешм:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const  Sc_dragmove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

Запускаем и мышой таскаем рисунок куда хотим и как хотим

А как после такого метода перетаскивания при отпускании кнопки мыши узнать координаты, где ето сделали?

[Stilet]

при отпускании кнопки мыши узнать координаты, где ето сделали?

Mouse.CursorPos еще не отменяли. Если нужно их преобразовать относительно компонента: Компонент.ScreenToClient(Mouse.Curs orPos)

[|Александр|]

procedure TForm1.Button1Click(Sender: TObject);
begin
Pnl:=TPanel.Create(self);
Pnl.Parent:=self;
Pnl.Top:=100;
Pnl.Left:=100;
Pnl.OnMouseMove:=Panel1.OnMouseMove;
Pnl.OnMouseUp:=Panel1.OnMouseUp;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const  Sc_dragmove = $F012;
begin
ReleaseCapture;
  (Sender as TPanel).Perform(WM_SYSCOMMAND, $F012, 0);

end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  Mouse1:TMouse;
begin
Edit1.Text:=inttostr(mouse1.CursorPos.X);
end;

Так не работает.
Подозреваю, что в этом виноват ReleaseCapture.
Подскажите, как правильно.
Срабатывает только, если щелкнуть по несчатной панельке, не перетаскивая ее.

Делаю домино,очень бы пригодилась такая штука.

[iron_cross]

поделитесь исходником пожалуста очень нужно.