Прилипание окна к краям раб. стола

← →
Kair (2004-02-19 08:01) [0]

Делаю так:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, wm_SysCommand, $F012, 0);
end;

procedure TForm1.wmMoving(var Msg: TMessage);
begin
if (Left < Screen.WorkAreaLeft + 10) and (Left > Screen.WorkAreaLeft - 10)
then Left := 1;
if (Top < Screen.WorkAreaTop + 10) and (Top > Screen.WorkAreaTop - 10)
then Top := 1;
if (Left > Screen.WorkAreaWidth - Width - 10) and
(Left < Screen.WorkAreaWidth - Width + 10)
then Left := Screen.WorkAreaWidth - Width - 1;
if (Top > Screen.WorkAreaHeight - Height - 10) and
(Top < Screen.WorkAreaHeight - Height + 10)
then Top := Screen.WorkAreaHeight - Height - 1;
end;

При движении окно начинает прилипать и отлипать от краев раб. стола. :(

← →
TUser (2004-02-19 10:13) [1]

А что ты хотел добиться этим кодом?

← →
Kair (2004-02-23 08:59) [2]

Чтобы окно прилипло к краю раб. стола. Типа как в Винамп.

← →
Developerr (2004-02-23 12:12) [3]

В библиотеке JEDI VCL есть такой компонент и готовый пример.

← →
Гаврила (2004-02-23 12:16) [4]

В Delphi7 у формы есть такое свойство - прилипать ли к краям рабочего стола.
См. инспектор объектов

← →
ZEE (2004-02-23 14:26) [5]

> procedure TForm1.FormMouseDown(Sender: TObject; Button:
> TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> ReleaseCapture;
> SendMessage(Handle, wm_SysCommand, $F012, 0);
> end;

этот кусок не про прилипания, а про таскание окна за любое место

> При движении окно начинает прилипать и отлипать от краев
> раб. стола. :(

так что не так?

← →
Kair (2004-02-25 10:41) [6]

то Гаврила: Покажи код, который это делает. 7-ой у меня нет.
то Девелопер: Аналогично.

то Зее: юююююю :)

Прилипание окна к краям раб. стола Найти похожие ветки