Перетаскивание формы

← →
Volly (2003-03-09 18:44) [0]

Как можно перетаскивать форму через Shape и ни за что более?

← →
Song (2003-03-09 19:52) [1]

WM_NCHITTEST

← →
Volly (2003-03-09 20:28) [2]

Хм... И что?

← →
Guerrillero (2003-03-09 23:26) [3]

procedure TForm1.HitTest(var Msg: TWMNCHitTest);
var
P: TPoint;
begin
inherited;
P := Point(Msg.XPos,Msg.YPos);
P := ScreenToClient(P);
if ControlAtPos(P,True,True) = Shape1 then
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;

← →
Яков Чебунин (2003-03-10 03:51) [4]

Проще так:

procedure TForm1.Shape1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0);
end;
end;

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