로그인폼을 불러 로그인한후 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;
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;
테스트는 해보지 않았습니다.^^
그럼 즐프하세요.