Скачать: CL | DM;

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c