Jokerjar79
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DmitryKz, немного корявое решение:
Код: private
procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
...
procedure TChildForm.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
var
WorkArea: TRect;
StickAt : Word;
begin
StickAt := 10;
WorkArea := ParentForm.ClientRect;
with WorkArea, Msg.WindowPos^ do
begin
Right:=Right-cx;
Bottom:=Bottom-cy;
if (abs(Left - x) <= StickAt) or (x < Left) then x := Left;
if (abs(Right - x) <= StickAt) or (x > Right) then x := Right - 4;
if (abs(Top - y) <= StickAt) or (y < Top) then y := Top;
if (abs(Bottom - y) <= StickAt) or (y > Bottom) then y := Bottom - 4;
end;
inherited;
end;
|
ParentForm.ClientRect, как я понял, захватывает также и бордюр формы, поэтому пришлось добавить - 4, возможно, придется подогнать под определенный стиль формы
----------
www.MyFirstSite.ru - информационный ресурс для начинающих веб-мастеров |
|
. Пока я её не знал - проблем не было. Ну, вылетает иногда прога - да и хрен с ней. А вот когда поставил первый раз -- много нового о своих "неправильных" кодах узнал. Советую 
