안녕하세요..
다름이 아니오라 화면을 움직이지 못하게 고정시키고자..아래와 같은
문장을 사용했습니다...그런데..다른것은 잘 되는데...Win32 에 있는
콤포트를(CoolBar, PageControl.등등) 사용하면 error 가 발생합니다
해결방법은 없는지요..조금 급합니다.
답변 기다리겠습니다...
public
{ Public declarations }
procedure WMNCHitTest( Var msg: TWMNCHitTest );
message WM_NCHITTEST;
procedure TForm1.WMNCHitTest( Var msg: TWMNCHitTest );
begin
inherited;
If msg.result = HTCAPTION Then
msg.result := HTNOWHERE;
End;
에러메세지
[Error] Unit1.pas(37): Incompatible types: 'Integer' and 'THitTest'
> 안녕하세요..
> 다름이 아니오라 화면을 움직이지 못하게 고정시키고자..아래와 같은
> 문장을 사용했습니다...그런데..다른것은 잘 되는데...Win32 에 있는
> 콤포트를(CoolBar, PageControl.등등) 사용하면 error 가 발생합니다
> 해결방법은 없는지요..조금 급합니다.
> 답변 기다리겠습니다...
>
> public
> { Public declarations }
> procedure WMNCHitTest( Var msg: TWMNCHitTest );
> message WM_NCHITTEST;
>
>
> procedure TForm1.WMNCHitTest( Var msg: TWMNCHitTest );
> begin
> inherited;
> If msg.result = HTCAPTION Then
> msg.result := HTNOWHERE;
> End;
>
> 에러메세지
> [Error] Unit1.pas(37): Incompatible types: 'Integer' and 'THitTest'
>
에러메세지로 미루어 봐서 HTCAPTION이나 HTNOWHERE가 다른곳에서 THitTest로
다시한번 선언된것 같습니다. 다음처럼 수정해보세요.
If msg.result = windows.HTCAPTION Then
msg.result := windows.HTNOWHERE;