Как сделать?

← →
[BAD]Angel © (2002-11-18 13:42) [0]

Уважаемые мастера, подскажите ПЛЗ, можно ли реализовать следующее:

есть форма, которую можно перетаскивать по экрану непосредственно за саму форму, не за заголовок окна.

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

Как сделать так, чтобы, когда форма касалась одной из своих сторон края экрана, она бы прилипала к ней. (Эффект TaskBar)

Если можно кодом!!!

Буду очень признателен!!!

← →
Skier © (2002-11-18 13:45) [1]

>[BAD]Angel
Лови сообщение WM_MOVING

← →
[BAD]Angel © (2002-11-18 13:47) [2]

и что дальше? конкретнее ПЛЗ! :-)

← →
Axis_of_Evil © (2002-11-18 13:53) [3]

procedure WMNCHitTest(var msg: TMsg); message WM_NCHitTest; procedure TForm1.WMNCHitTest(var msg: TMsg); begin if Result = ****** then Result := hc_Caption; end;

****** - hc_форма, посмотри в help,
вообще помучай hc_*

← →
[BAD]Angel © (2002-11-18 14:02) [4]

Axis_of_Evil - а что эта процедура делает?

← →
[BAD]Angel © (2002-11-18 14:08) [5]

ну неужели никто не может написать код? :-(

← →
Axis_of_Evil © (2002-11-18 14:13) [6]

Делает то, что при клике по форме(серой поверхности) и попытке
ее таскания как за Caption она таскается.

hc_**** подлежит выяснеиню, просто я не помгю эту константу
(hc_window или чего-то) ну посмотри ты в help.(win32.hlp)

← →
[BAD]Angel © (2002-11-18 14:18) [7]

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

Вот процедура таскания формы за серую область, а мне нужен алгоритм (код) как сделать прилипания формы к краю экрана!!!!

P.S. Нужен эффект WinAmp"a (прилипание окна к краю экрана)...

Навскидку: Form1.Align, если приблизились к краю
(if Form1.Left < 10)

с этим есть некоторые трудности... есть ли бругой способ?

Как сделать? Найти похожие ветки