Скачать: CL | DM;

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

← →
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-ой у меня нет.
то Девелопер: Аналогично.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c