Перемещение программы

[Jleksern]

А как сделать так чтоб можно было зажать на какойто компонент (к примеру кнопку) и перетащить окно в другое место?!
Перетаскивать НЕ в программе, а саму программу.

[Hacker19_90]

Заводите глобальные переменные

Dragging: boolean;
OldX, OldY: integer;

Потом обрабатывайте событие MouseDown нужного компонента
пишите следующее
допустим для кнопки

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if Button = mbLeft then
     begin
          Dragging := true;
          OldX := X;
          OldY := Y;
     end;
end;

потом обрабатываете
MouseMove

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if Dragging then
     begin
         Form1.Left := Form1.Left - X - OldX;
         Form1.Top := Form1.Top - Y - OldY;
     end;
end;

Ну а в конце
MouseUp

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Dragging := false;
end;

[Jleksern]

Блин, а это легче чем я себе представлял))) Спасибо)

хм... за ради интереса решил прямо сейчас попробовать этот код.

Но.. он убегает от курсора :D
А я интернируются так чтоб курсором зажать и перетянуть куда-то ))

[FaTaL]

Допустим Вам надо перетащить форму держа курсор мыши на компоненте labe1

procedure tform1.label1mousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
const sc_dragmove = $f012;
begin
releasecapture;
form1.perform(wm_syscommand, sc_dragmove, 0);
end;
www.x-program.narod.ru