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

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

← →
Victor456   (2007-06-25 15:59) [0]

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

---

← →
AleksandrR ©   (2007-06-25 16:10) [1]

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

---

← →
clickmaker ©   (2007-06-25 16:18) [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;

---

← →
StriderMan ©   (2007-06-28 12:16) [3]

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

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

---

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

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



Память: 0.45 MB
Время: 0.014 c