안녕하세요.
모르는것이 있어 이렇게 질문드립니다.
여러개의 폼에 panel를 써서 프로그램 실행되는 도중에 쓰이는 각종 에러 메세지
를 나타내고자 합니다.
가령 form1,form2,form3.... 이 있고 각 폼에는 panel_err 이라는 panel이
존재합니다.
이 panel에 나타낼 메세지를 모듈을 써서 구현하려고 하는데
모듈에 다음과 같이 기술하면
case error
1: panel_err.caption := '자료를 찾지못했습니다.'
2: panel_err.caption := '자료를 찾았습니다.'
.
.
.
panel_err이 선언되지 않았다고 나타나더군요
물론 user 절에 모듈을 선언하였고요.
읽어주셔서 고맙고요
좋은 답변 기다리겠습니다.
> 안녕하세요.
> 모르는것이 있어 이렇게 질문드립니다.
>
> 여러개의 폼에 panel를 써서 프로그램 실행되는 도중에 쓰이는 각종 에러 메세지
> 를 나타내고자 합니다.
>
> 가령 form1,form2,form3.... 이 있고 각 폼에는 panel_err 이라는 panel이
> 존재합니다.
> 이 panel에 나타낼 메세지를 모듈을 써서 구현하려고 하는데
> 모듈에 다음과 같이 기술하면
> case error
> 1: panel_err.caption := '자료를 찾지못했습니다.'
> 2: panel_err.caption := '자료를 찾았습니다.'
> .
> .
> .
> panel_err이 선언되지 않았다고 나타나더군요
> 물론 user 절에 모듈을 선언하였고요.
>
> 읽어주셔서 고맙고요
> 좋은 답변 기다리겠습니다.
>
질문하신 바를 잘 이해했는지 모르겠지만
panel이 어느 클래스에 속해있는지를 지정을 안하셨는지요..
같은 폼 클래스가 아니면은 uses에만 추가해서는 안되고
Form1.panel_err.caption := '...';
와 같이 폼클래스를 지정하셔야 합니다.
위와 같은 함수를 만드시려면 panel을 파라미터로 넘기시면 어떠실지요
procedure sss(pnl_errmsg : TPanel; error:integer)
begin
case error of
1: pnl_errmsg.caption = '...'
end;
호출하실때는
sss(panel_err, 1);