저의 짧은 지식으로 해결하려 해도 시간이 고민하다 시간만

갔네요...

아래 Logic중 두번째 IF FindWindow문에서

'...access violation ...' Error를 발생합니다.

고수님들 도와주세요....





procedure TFkc000m.FormNormalize(Sender:Tobject);

Var

hMyFocus : hwnd;

begin

// FindWindow 의 결과값이 0으로 return되어

// 바로 다음 '사원번호...'로 흐릅니다.

If FindWindow('TFkc110m', '이름으로 조회') <> 0 Then

begin

if Fkc110m.WindowState = wsminimized then

Fkc110m.WindowState := wsnormal;

end;





//***바로 이부분 begin절 안의 if문장으로 흐르면서

//***제목과 같은 Error를 발생합니다......

If FindWindow('TFkc210m', '사원번호로 조회') <> 0 Then

begin

if Fkc210m.WindowState = wsminimized then

Fkc210m.WindowState := wsnormal;

end;





If FindWindow('TFkc330m', '입사일로 조회') <> 0 Then

begin

if Fkc330m.WindowState = wsminimized then

Fkc330m.WindowState := wsnormal;

end;

end;