안녕하세요~~
서비스 프로그램에서 로그인 폼을 뛰우려고 하는데...
에러가 발생하지는 않는거 같은데...........
<!--CodeS-->
function OpenLogin( Owner : TComponent ) : Boolean;
var
nResult : Integer;
begin
Result := False;
try
frmLogin := TfrmLogin.Create( Owner );
frmLogin.ParentWindow := GetActiveWindow();
nResult := frmLogin.ShowModal;
if nResult = MrOK then Result := True
else Result := False;
except
on E : Exception do
begin
WriteLog( E.Message );
frmLogin.Free;
frmLogin := nil;
Result := False;
end;
end;
end;
<!--CodeE-->
이렇게 하면 폼이 보이질 않네요.....
폼은 Visible := False인 상태입니다...
왜 화면에 안 보이는지 아시는 분은 좀 도와주세요~~^^