procedure Tfrm_GD01.edtSanoKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
if not Query1.locate('INSANO',Trim(edtSano.Text), [lopartialkey]) then begin
if Trim(edtSano.Text)='' then begin
frm_IB00A := Tfrm_IB00A.Create(Application);
frm_IB00A.vSW := '2';
frm_IB00A.ShowModal;
:
:
:vSW는 frm_IB00A폼의 변수입니다.
사번 에디트컴포넌트의 keypress이벤트입니다.
문제는 frm_IB00A폼이 ShowModal될때 List index out of bound(3)에러가 나는데.....
아시는분점 답좀 주세요...ㅠ.ㅠ
아마도 frm_IB00A폼이 열릴때 formshow나 formActive 이벤트 부분에..
즉, 폼이 열릴때 사용자 조작없이 수행되는 작업중에 콤보박스나 리스트박스 처리
되는쪽에서 나오는 오류라고 생각되어 짐니다..
그부분을 살펴 보십시오.. 디버그를 해보시면 오류가 발생하는 부분을
알수 있으리라 예상이 됩니다..
그럼 이만..
궁구미 wrote:
> procedure Tfrm_GD01.edtSanoKeyPress(Sender: TObject; var Key: Char);
> begin
> if key = #13 then begin
> if not Query1.locate('INSANO',Trim(edtSano.Text), [lopartialkey]) then begin
> if Trim(edtSano.Text)='' then begin
> frm_IB00A := Tfrm_IB00A.Create(Application);
> frm_IB00A.vSW := '2';
> frm_IB00A.ShowModal;
> :
> :
> :vSW는 frm_IB00A폼의 변수입니다.
>
> 사번 에디트컴포넌트의 keypress이벤트입니다.
> 문제는 frm_IB00A폼이 ShowModal될때 List index out of bound(3)에러가 나는데.....
> 아시는분점 답좀 주세요...ㅠ.ㅠ