Q&A

  • 서비스 프로그램에서 폼을 하나 띠울려고 하는데 ㅠㅠ
안녕하세요~~
서비스 프로그램에서 로그인 폼을 뛰우려고 하는데...
에러가 발생하지는 않는거 같은데...........

<!--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인 상태입니다...

왜 화면에 안 보이는지 아시는 분은 좀 도와주세요~~^^
4  COMMENTS
  • Profile
    이강석 2009.03.13 02:28
    Owner는 Application을 인자로 받아온것입니다..
  • Profile
    구창민 2009.03.13 22:06
    안녕하세요..

    Interactive 속성을 True로 하고 실행해보세요..

    참고로, Vista에서는 전혀 다른데스크탑에서 구동되어서 해결책을 찾지 못했었습니다..

    즐거운 프로그래밍 하세요..
  • Profile
    이강석 2009.03.14 01:00
    네...감사합니다...일단 해볼꼐요
  • Profile
    이강석 2009.03.14 02:53
    Interactive를 True로 해도 마찬기지네요...Owner나 ParentWindow에 값을 잘못줘서 그런가??
    이것 때문에 모듈을 나눌까 생각중입니다...암턴 관심 감사해요~