폼의 BorderStyle을 bsNone으로 하고 위에 패널을 하나 얹은 다음,
패널을 드래그해서 폼을 움직이는 법.
패널의 onMouseDown 이벤트 핸들러를 아래처럼 하면 됨.
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
안하니까 자꾸 까먹는다.
'Delphi' 카테고리의 다른 글
| Delphi2009 + IdHTTP (Indy10) 에서 UTF-8 웹페이지 한글 깨짐 (0) | 2009.05.20 |
|---|---|
| Delphi&PHP 언어간의 암호화 시스템 호환 (0) | 2009.04.30 |
| Delphi2009 Indy10 에서 한글 깨짐 문제 (0) | 2009.04.28 |
| TList 형에서 Delete 를 이용해 item 삭제시 루프문 (0) | 2009.04.20 |
| 폼에 드래그 앤 드롭 구현 (0) | 2009.04.18 |
