Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: 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 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
6-12468
god
2003-12-29 11:17
2004.03.05
Ping Time


11-12308
MTsv DN
2003-06-20 10:49
2004.03.05
Стиль Office XP


1-12441
Pohil
2004-02-23 02:15
2004.03.05
автозагрузка


1-12449
race1
2004-02-23 07:28
2004.03.05
service filename


8-12456
race1
2003-11-05 09:08
2004.03.05
brush.bitmap&transparent