Pohyb oknem – Delphi – Fórum – Programujte.com

sehnal jsem si proceduru na pohyb oknem, kdyz chcete nastavit BorderStyle na BsNone.
problem je v tom, ze funguje jen kdyz pretahujete uchopenim kdekoliv na formulari.

Kdyz ale pres celej formular roztahnu panel, tak uz pretahovani nefunguje.

Najde se nekdo ,kdo by ji dokazal pozmenit,aby bylo mozno uchopit i kdekoliv na panelu a premistit ??

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if  M.Result = htClient then M.Result := htCaption;
end;

procedure TForm1.WMNCPaint(var Msg:TWMNCPaint);
var
dc: hDc;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;

begin
inherited;
dc := GetWindowDC(handle);
Msg.Result := 1;
Pen := CreatePen(PS_SOLID, 3, RGB (0,0,0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0, 0, Form1.Width, Form1.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;

rozumim, je to logicky, diky, ale jakou vlastnost toho panelu mam upravit prave nevim  ... ??

A že bys trochu hledal? Tohle je první co mi vyhodil google a rovnou s řešením tvýho konkrétního problému:

http://delphi.about.com/od/windowsshellapi/a/dragnocaption.htm

jasny, nezlob se, jsem zkusenej hledac, ale vcera jsem spechal a mel jsem cas jen na 2 odpovedi ..

Kazdopadne dekuju moc ...