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

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

Перемещение окна

Victor456 ©   (2007-06-25 15:59:00) 

Как мышью перемещать окно за компонент Image?

---

StriderMan   (2007-06-28 12:16:00) [1]

> Как мышью перемещать окно за компонент Image?

покрепче хватай двумя курсорами, ногой в монитор упрись и тяни

---

clickmaker   (2007-06-25 16:18:00) [2]

type
 TForm1 = class(TForm)
 ...
  procedure OnWMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
 ...

procedure TForm1.OnWMNCHitTest(var Msg: TMessage);
var pt: TPoint;
begin
 pt.x := Msg.LParamLo;
 pt.Y := Msg.LParamHi;
 pt := ScreenToClient(pt);
 if ControlAtPos(pt, true) = Image1 then
   Msg.Result := HTCAPTION
 else
   DefaultHandler(Msg);
end;

---

AleksandrR   (2007-06-25 16:10:00) [3]

В Image обработай событие OnMouseDown и пропиши код
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

---

Наверх