How to do as ICQ

← →
123000 © (2002-11-09 14:08) [0]

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

← →
False_Delirium © (2002-11-09 16:32) [1]

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

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

множество IsCliped

How to do as ICQ Найти похожие ветки