소스 내용을 보면 TPanel 안에 TLabel이 들어가 있어야 제대로 동작하게끔 되어있네요.
그렇게 하셨나요?
님이 쓰신 글 :
: type
: procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
: private
: { Private declarations }
: public
: { Public declarations }
: end;
:
: procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
: Shift: TShiftState; X, Y: Integer);
: begin
: ReleaseCapture;
: Panel1.Perform(WM_SYSCOMMAND, $f012, 0);
: end;
:
: 검색을해서 이렇게 소스상에 적어두고 컴파일했는데 작동이 안되는거같아요
:
: 따로 이벤트를 추가를해줘야하나요? 이벤트를 추가를해야한다면 이벤트추가하는법좀
|