| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

How to do as ICQ [D6, Win95/98]

123000 ©   (2002-11-09 14:08:00) 

Подскажите как приклейть окно моей проги к краю экрана, как это делает аська если её окно перетащить к краю экрана?

---

False_Delirium   (2002-11-09 16:34:00) [1]

множество IsCliped

---

False_Delirium   (2002-11-09 16:32:00) [2]

B Обрабатываем сообщения.

Получаем размеры экрана Screen(Width, Height)... при создании окна и при изменении разрешения.
Сделаем переменную, определяющую склеивание, чтобы произ ходило оно один раз за вхождение... нужно множество Cliped ... cllpdLeft, clpdRigth, clpdTop, clpdBottom ;

WM_RESIZE // определить размер окна, чтобы не делать это каждый раз при перемещении окна.

var
Rect: TRect ;
WindowPl: TWindowPlacement ;
begin
WindowPl.Length := SizeOf(TWindowPlacement) ;
GetWindowPlacement(WHandle, @WindowPl) ;
Rect := WindowPlacement.rcNormalPosition ;
GetWindowRect(WHandle, Rect) ;
LeftP := Rect.Left ;
TopP := Rect.Top ;
RightP := Rect.Right ;
BottomP := Rect.Bottom ;
end ;


WM_MOVING
// Приклеиваем за 20px до края.
if (LeftP in [0..20]) and not (clpdLeft in IsCliped) then
begin
SetWindowPos(...) // приклеиваем к левому краю ;
IsCliped := IsCliped or clpdLeft ;
end IsCliped := IsCliped and not clpdLeft ;

if (TopP in [0..20]) and not (clpdTop in IsCliped) then
begin
SetWindowPos(...) // кверху
IsCliped := IsCliped or clpdTop ;
end IsCliped := IsCliped and not clpdTop ;

if (RightP in [Screen.Width-20..Screen.Width]) and not
(clpdRight in IsCliped) then
begin
SetWindowPos(...)//к правому краю
IsCliped := IsCliped or clpdRight ;
end IsCliped := IsCliped and not clpdRight ;

if (BottomP in [Screen.Width-20..Screen.Width]) and not (clpdBottom in IsCliped) then
begin
SetWindowPos(...)//книзу
IsCliped := IsCliped or clpdBottom ;
end IsCliped := IsCliped and not clpdBottom ;

Желательно всё перепроверить в WM_MOVE


Вроде бы ничего не упустил... Сам не пробовал и алгоритм можно покрасивее реализовать.
Все интервалы [..] лучше заменить двойным условием, писать было лень.:)

---

Наверх