[Blackster]

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

[:S.p.a.m.]

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

[Blackster]

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

[:S.p.a.m.]

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

[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 переменные (внутри класса формы!!!):

Код:

1 2	FIsMove : Boolean; FDragPoint : TPoint;

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

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

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

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

[lmikle]

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

[Casper-Hacker]

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

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

Код:

1 2 3 4 5 6 7

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;