폼의 mousedown 이벤트에 아래와 같이 작성하세요.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
마얌 님이 쓰신 글 :
: 폼에서 타이틀 바를 잘라내 버렸습니다.
: 그런데 문제는 ^^;;
: 타이틀바로 폼을 움직였는데 타이틀바가 없어서 고정이 되어버렸네요 ^^;;
: 이거 어케 움직일까요 ^^;;
: 고수님들 도움을 요청합니다. ^^;;;;
: 복받으실꼬에용~~~ ^^*
|