Перемещение формы

← →
WhiteGuy (2004-12-19 11:16) [0]

Здорово, мужики!
У меня вопрос следующего содержания - как мне двигать (перемещать) форму, перетаскивая на этой же форме, например, картинку???

← →
Palladin © (2004-12-19 11:19) [1]

А форма отдельно от картинки двигается чтоли?

← →
WhiteGuy (2004-12-19 11:22) [2]

Да нет, чувак! Знаешь, как крякеры делают некоторые кейгены??

← →
Leonid Troyanovsky © (2004-12-19 11:31) [3]

> WhiteGuy (19.12.04 11:22) [2]
> Да нет, чувак! Знаешь, как крякеры делают некоторые кейгены??

Чего-ты ты, чувак, все загадками говоришь.

--
С уважением, LVT.

← →
WhiteGuy (2004-12-19 11:38) [4]

Да с Бодуна просто.. :-) . Ладно, объясню по-полочках:
1. Запустив прогу, ЗАЖИМАЕМ левую кнопку мыши на картинке и тянем влево или вправо, этим самым перетягивая форму;
2. Это перетягивание аналогично перетягиванию заголовка формы (этот который синим градиентом 8-)).
Ясно?

← →
Logun (2004-12-19 11:47) [5]

Ты обрабатывай событие:
... private procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST; end; ... procedure TMain.WMNCHITTEST(var Msg: TWMNCHitTest); begin inherited; with Msg do with ScreenToClient(Point(XPos,YPos)) do if PtInRect(Image1.BoundsRect, Point(X,Y)) then Result := htCaption; end;

Где Image1 - твоя картинка. Ивсе твоя форма будет тоскатся за картинку!

Перемещение формы Найти похожие ветки