김경태 wrote:

> 폼이 있고 폼위에 패널 꽉차 있습니다.버튼두 하나있구요..

>

> 근데..원래는 폼의 제목표시줄을잡아야지 이동이 되자나요..

>

> 근데 폼몸통.즉패널잡고 이동할려면 어떻게 해야되나요???

>

> 알쿄주세욥~~



델세상(http://www.freechal.com/delphiworld)의 조규춘입니다.



아래는 예제이옵니다.







unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

type

LH = Record

L : Word;

H : Word;

end;

var

LParam : Integer;

begin

if Button = mbLeft then

begin

If (WindowState <> wsMaximized) then

begin

ReleaseCapture;

LH(LParam).L := X;

LH(LParam).H := Y;

SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, LParam);

end;

end;

end;





end.