FAQ - Перетаскивание формы за ее поле.

Перетаскивание формы за ее поле.

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; 
                           Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  { a magic number }
begin
  ReleaseCapture;
  perform(WM_SysCommand, SC_DragMove, 0);
end;

1.

41K

18 июля 2008 года

gorkalov

0 / / 18.07.2008

18 июля 2008, 03:48:29

Клас ваще!!! Я сам долго думал как это сделать а тут... САПАСИБО!!!!