제목 표시 줄을 사용할 수 없으면 Inno Setup WizardForm을 움직일 수있게 만듭니다.

Question

사용자 정의 모양으로 설치 프로그램을 만들고 BorderStyle을 bsNone으로 설정하여 제목 표시 줄을 비활성화하려고합니다.

이제 더 이상 창을 이동할 수 없습니다. 나는 주위를 둘러 보았다 델파이에 대한 해결책 발견이가 이노 설정에
http://www.chami.com/tips/delphi/010397D.html

을 수행 할 수 있습니까?

MSDN에서 이미 WM_NCHITTEST을 찾았지만이 작업을 수행 할 수있는 방법과 방법을 알 수 없습니다.

편집 : 둘러보고 난 후 advanced compiler 고급 컴파일러를 사용하여 컴파일하고 나왔지만 작동하지 않습니다. 그것은 컴파일하지만 창 안쪽을 클릭하면 끌 수 없습니다.

procedure Dragg(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    SendMessage(WizardForm.Handle, $F112, $F012, 0); 
end; 

procedure InitializeWizard(); 
begin 
    WizardForm.OnMouseDown := @Dragg; 
end; 

Answer 1

번호는 메시지를 처리하거나 컨트롤에 대한 WndProc을 변경하는 방법은 없습니다. this post과 같이 문서화되지 않은 드래그 동작을 구현할 수있는 약간의 기회가 있었지만 불행히도 InnoSetup에는 스크립팅을 위해 마우스 다운 이벤트가 게시되지 않았으므로 일부 외부 라이브러리가 없으면 운이 좋지 않습니다.

---

언급 한 라이브러리 및 코드를 사용하십시오. ReleaseCapture 함수 호출이 누락되었습니다. 대신에이 스크립트 코드를 사용 (그리고 잊지 마세요, 마법사 형태의 유일한 노출 된 부분은 왼쪽 아래에 있음) :

[Code] 
function ReleaseCapture: BOOL; 
    external 'ReleaseCapture@user32 stdcall'; 

const 
    SC_DRAGMOVE = $F012; 
    WM_SYSCOMMAND = $0112; 

procedure OnMouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    ReleaseCapture; 
    WizardForm.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); 
end; 

procedure InitializeWizard; 
begin 
    WizardForm.OnMouseDown := @OnMouseDown; 
end;