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

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

Перемещение формы [D7, WinXP]

WhiteGuy ©   (2004-12-19 11:16:00) 

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

---

Logun   (2004-12-19 11:47:00) [1]

Ты обрабатывай событие:

 ...
 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 - твоя картинка. Ивсе твоя форма будет тоскатся за картинку!

---

WhiteGuy   (2004-12-19 11:38:00) [2]

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

---

Leonid Troyanovsky   (2004-12-19 11:31:00) [3]

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


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

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

---

WhiteGuy   (2004-12-19 11:22:00) [4]

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

---

Palladin   (2004-12-19 11:19:00) [5]

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

---

Наверх