Перетаскивание формы

[s-force]

Бьюсь головой об стенку... Вроде все просто, но ниче не могу сделать... Как сделать перетаскивание формы мышкой (бордерстиль=ноне) ? Т.е. зажал мышку и потащил форму....

[Xam]

попробуй в MouseDown формы:

ReleaseCapture;
Self.perform(WM_SysCommand, $F012, 0);

[still_alive]

Угу, а если на форме панелька допустим будет, то что делать будем?
Правильно. Будем делать по-другому...

[Квэнди]

s-force
А за что вы хотите перетаскивать ?

[Alex21]

Ладно вам, хорош плавить ему моск.
s-force, если еще не убился апстену.... вот то, что тебе надо:

var
  Form1: TForm1;
 down:boolean=false; {нажатие}
 cx,cy:integer; {координаты старого положения формы}
implementation
{$R *.dfm}
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button = MBLeft then  {если нажатие левой кнопкой то}
 begin
   down:=true;
   cx:=x;{сохраняем старое положение курсора}
   cy:=y;
 end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
down:=false;{отпустили кнопку}
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if down then  {если есть нажатие на форме то}
 begin
   Form1.Left:=Form1.Left+x-cx; {двигаем относительно курсора}
   Form1.Top:=Form1.Top+y-cy;
 end;
end;
end.

Полагается, что нажатие будет производиться именно на форму, а не на панель или картинку.........
Для изменения - достаточно вставить соответствующие блоки кода в обработчики нужного компонента.

[Квэнди]

Мсье знает толк в извращениях =)
Все проще )

procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;

procedure Tform1.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
Height := ClientHeight;
end;

[Alex21]

Иногда проще - не есть лучше =)

сор, за офтоп.

[JTG]

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

Ладно вам, хорош плавить ему моск.
s-force, если еще не убился апстену.... вот то, что тебе надо:

var
  Form1: TForm1;
 down:boolean=false; {нажатие}
 cx,cy:integer; {координаты старого положения формы}
implementation
{$R *.dfm}

...

Полагается, что нажатие будет производиться именно на форму, а не на панель или картинку.........
Для изменения - достаточно вставить соответствующие блоки кода в обработчики нужного компонента.

Если во время перетаскивания форма потеряет фокус (окно левое вылезло, alt-tab нажали etc..) то она "приклеется" к мыше, и будет таскаться за ней (до первого-второго клика), даже если левая кнопка не нажата. Несмертельно конечно, но неприятно

[Alex21]

Вот еще вариант:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

[Master-Skull]

размести

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

на Form.MouseDown
а потом везде за что надо перетаскивать на моусдаун эту процедуру воткни