Как таскать форму за клиентскую часть?

← →
An (2003-03-17 11:12) [0]

Привет, Мастера!
Есть форма без заголовка (делаю это при помощи SetParams, как учили), надо, чтобы ее можно было таскать мышкой ухватившись за клиентскую часть. Опять же как учили, делаю обработчик события, что-то там WM_???CHITTEST, и в нем подменяю msg.result, как будто мышь нажата в caption. Все работает. Усложняю задачу.
К форме прицепляю окно, созданное без VCL- например IVideoWindow,
при помощи put_owner, теперь в клиентской части моей формы содержимое другого окна и, естественно, на событие WM_???CHITTEST она не реагирует. Что делать? Пробовал подменить у IVideoWindow процедуру WndProc на WndProc моей формы- не помогает.Научите, а?

← →
vlad40 © (2003-03-17 12:34) [1]

А если так попробовать?:

var px,py: integer; procedure TForm1.AppMessage( var Msg: TMsg; var Handled: Boolean); begin if (Msg.message=WM_MOUSEMOVE) and (sd) then begin left:=Msg.pt.x-px; top:=Msg.pt.y-py; end; if (Msg.message=WM_LBUTTONDOWN) then begin px:=Msg.pt.x-Left; py:=Msg.pt.y-Top; sd:=true; end; if (Msg.message=WM_LBUTTONUP) then begin sd:=false; end; end;

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

другой:

var

Form1: TForm1;
MX: integer;
MY: integer;

implementation

{$R *.DFM}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);
begin
if Shift<>[ssLeft] then
begin
MX:=X;
MY:=Y;
end else
begin
Left:=Left+X-MX;
Top:=Top+Y-MY;
end;
end;

Как таскать форму за клиентскую часть? Найти похожие ветки