LABEL 로 창 움직이기

Label을 클릭하고 창을 마우스로 움직일 수 있게 만들기

망고 애플 앵무새

Label1 을 만들고,

Mousedown 이벤트를 만든다.

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

  Shift: TShiftState; X, Y: Integer);

const

  SC_DragMove = $F012;

begin

  ReleaseCapture;

  Form1.perform(WM_SysCommand, SC_DragMove,0);

end;

끝.