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 }
procedure WMCHitTest(var msg : TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// 판넬로 움직이기
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
// 이건.. 폼의 캡션을 클릭했을때와 같은 역할을 하게 한다.
end;
// 폼으로 움직이기
procedure TForm1.WMCHitTest(var msg: TMessage);
begin
inherited; // 이거 꼭 포함^^
If msg.Result = htClient Then
msg.Result := htCaption
end;
end.
출처 : http://yuhani.springnote.com/pages/973228
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 }
procedure WMCHitTest(var msg : TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// 판넬로 움직이기
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
// 이건.. 폼의 캡션을 클릭했을때와 같은 역할을 하게 한다.
end;
// 폼으로 움직이기
procedure TForm1.WMCHitTest(var msg: TMessage);
begin
inherited; // 이거 꼭 포함^^
If msg.Result = htClient Then
msg.Result := htCaption
end;
end.
출처 : http://yuhani.springnote.com/pages/973228
'Dev > Delphi' 카테고리의 다른 글
[Delphi] .swf 파일 폼에 넣기 (TShockWaveFlash) (1) | 2011.06.13 |
---|---|
TWindowsMediaPlayer - Component (0) | 2011.06.10 |
TImageButton 만들기 (1) | 2011.05.31 |
델파이 오픈 소스. (1) | 2011.05.31 |
델파이 콤포넌트 만들기 외 2건의 레퍼런스(함수,VCL) 문서 (0) | 2011.05.31 |
자신의 폰트를 시스템 폰트로 설정 (0) | 2011.05.31 |
폼생성시 이벤트 발생 순서 (VCL) 폼생성/폼종료 시 이벤트 발생 순서 (0) | 2011.05.31 |
오류메시지 "Cannot Change Visible in Onshow or OnHide" (0) | 2011.05.31 |
윈도우 버젼 정보가져오기 (0) | 2011.05.31 |
델파이 몇개 간단한 팁들 (0) | 2011.05.31 |