Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

вопрос по работе с формой.....   Найти похожие ветки 

← →
-=@ndrew=-   (2003-08-28 09:44) [0]

Уважаемые мастера, подскажите пожалуйста, как реализуется "прилипание" формы ICQ к краю экрана...

---

← →
AndreySoft   (2003-08-28 10:34) [1]

Да очень просто!
В процедуре OnIdle можно описать интервалы координат формы при которых форма приобретает строго заданные координаты. Таким образом осуществляется эффект скачка.

---

← →
Skier   (2003-08-28 11:36) [2]

>AndreySoft © (28.08.03 10:34)
Способ для неспокойного сна.

>-=@ndrew=- (28.08.03 09:44)
WM_MOVING ?

---

← →
AndreySoft   (2003-08-28 11:41) [3]

Skier © (28.08.03 11:36)
А ты можешь предложить другой способ?

---

← →
Е-Моё имя   (2003-08-28 11:43) [4]

AndreySoft © (28.08.03 11:41)

зри чо он пишет:
Skier © (28.08.03 11:36)
>AndreySoft © (28.08.03 10:34)
Способ для неспокойного сна.

>-=@ndrew=- (28.08.03 09:44)
WM_MOVING ?

---

← →
Yanis   (2003-08-28 11:47) [5]


procedure TCustomGlueForm.WMWindowPosChanging1(var Msg: TWMWindowPosChanging);
var
WorkArea: TRect;
StickAt : Word;
begin
StickAt := 10;
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
with WorkArea, Msg.WindowPos^ do begin
// Сдвигаем границы для сравнения с левой и верхней сторонами
Right:=Right-cx;
Bottom:=Bottom-cy;
if abs(Left - x) <= StickAt then x := Left;
if abs(Right - x) <= StickAt then x := Right;
if abs(Top - y) <= StickAt then y := Top;
if abs(Bottom - y) <= StickAt then y := Bottom;
end;
inherited;
end;
Вот этот код реализует прилипание как в Winamp"е? А вот про аську не знаю, был тут уже такой вопрос.


---

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

Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

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