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

← →
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;

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

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

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