Q&A

  • 폼과 폼의 연결문제에 대해 질문있습니다 초보적 질문인데..
로그인폼을 불러 로그인한후 Client폼을 부른 다음 로그인폼을 닫으려하는데
Client폼 마저 같이 닫혀버립니다니다
폼 옵션설정을 보면  LoginForm이 main form이고
Client폼은 Avail Form입니다
폼 옵션 설정에 문제가 있는것 같은데
어떻게 해야할지요
로그인 폼을 닫아도 Client폼을 살리고 싶습니다

procedure TLoginForm.LoginButtonClick(Sender: TObject);
begin
    ClientForm.UserId:=Edit1.Text;
    ClientForm.Passwd:=Edit2.Text;
    ClientForm.Show;
    LoginForm.close;
end;

1  COMMENTS
  • Profile
    aiman 2007.05.15 19:01
    TLoginForm 을 Modal dialog형식으로 사용하는게 좋을듯 합니다.
    try
        loginfrm := TLoginForm.Create(Self);
        
        if loginfrm.ShowModal() = mrOK then
        begin
            ClientForm.UserId := loginfrm.Edit1.Text ; <= loginfrm 대응 Member 변수를 만드세요.. ^^
            ClientFrom.Passwd:=loginfrm.Edit2.Text;
            ClientFrom.Show();
        end
        else
        begin
            ShowMessage('Error login!!!');
            Exit;
        end;

    finally
        loginfrm.free;
    end;

    테스트는 해보지 않았습니다.^^
    그럼 즐프하세요.