Q&A

  • 다시 부탁합니다..폼고정시 Error 문제처리 ...제발!!!!
안녕하세요..

다름이 아니오라 화면을 움직이지 못하게 고정시키고자..아래와 같은

문장을 사용했습니다...그런데..다른것은 잘 되는데...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'



2  COMMENTS
  • Profile
    나그네 2001.05.03 19:32
    이석재 wrote:

    > 안녕하세요..

    > 다름이 아니오라 화면을 움직이지 못하게 고정시키고자..아래와 같은

    > 문장을 사용했습니다...그런데..다른것은 잘 되는데...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;





  • Profile
    이석재 2001.05.03 22:16
    님 말씀대로 했더니 에러가 없습니다..실행도 잘 되고요..

    문제 해결에 도움 주셔서 정말 감사합니다...

    꾸뻑!!