Obrazek zamiast formy - przesuwanie

0

Witam.

Chodzi mi o stworzenie programu, który nie posiada formy ( BorderStyle:bsNone ) i ma komponent TImage...I jest fajnie, tylko po skompilowaniu wyświetla się obrazek, ale nie można przesuwać aplikacji po ekranie...Chodzi mi o to żeby po najechaniu na obrazek i "złapaniu" go - przesuwać go w dowolne miejsce.

Proszę o radę.

0 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture();
  SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0);
end;
0

Albo można też tak:


procedure TMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const SC_DragMove = $F012; 
begin 
  ReleaseCapture; 
  Perform(WM_SysCommand, SC_DragMove, 0); 

end;

:D

1 użytkowników online, w tym zalogowanych: 0, gości: 1