Текущий архив: 2005.01.02;
Скачать: 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 вся ветка
Текущий архив: 2005.01.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
