[Blackster]

привет.как сделать так чтобы можно было мышкой передвинуть форму взяв ёё в любом месте?

[:S.p.a.m.]

http://codelab.3dn.ru/publ/2-1-0-50
все просто!

[Blackster]

извени но не пашет

[:S.p.a.m.]

незнаю но у меня все работает!
вот:

[lmikle]

Код:

procedure TCallAlertForm.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FIsMove := True;
  FDragPoint := Point(X , Y );
end;

procedure TCallAlertForm.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  If FIsMove Then
    Begin
      Self.Left := Self.Left + x - FDragPoint.X;
      Self.Top := Self.Top  + y - FDragPoint.y;
    End;
end;

procedure TCallAlertForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FIsMove := False;
end;

+ в форме объявляешь 2 переменные (внутри класса формы!!!):

Код:

    FIsMove : Boolean;
    FDragPoint : TPoint;

Двигает форму, которая вообще сдизайнена без заголовка.

ЗЫ. Кажется, я полняй код этой формы уже когда-то сюда постил. Люди, перед тем, как спрашивать, делайте поиск по форуму!!!

[жекаизжека]

у меня ругаеться вот на это "TCallAlertForm."

[lmikle]

Естественно, ругается. У тебя-то форма подругому называется. Через инспектор объектов сделай нужные обработчики и скопируй туда код из соответсвующих, приведенных в моем посте.

[Casper-Hacker]

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

привет.как сделать так чтобы можно было мышкой передвинуть форму взяв ёё в любом месте?

Код:

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