김영진 wrote:

> 제가 지금 프로젝트를 수행중인데

> 로그인 화면이 뜨고 아이디와 패스워드를 집어넣으면 메인화면으로

> 넘어가는 거든요...

> 그런 프로그램들 많이 보셨죠.

> 문제는 로그인 화면을 없애야 하는데 그것이 잘 안되서요...

> 로그인 해서 들어가면 메인 화면은 나오는데 로그인 화면은

> 안 없어져요..

> HIDE로 숨기는 거 말고 아예 메모리에서 없애는 방법좀 가르켜 주세요

> 감사합니다....



소스를 못 봐서 정확한 답이 될지는 모르겠네요.

제 생각으로는 프로젝트 소스 파일을 편집하는 것이 좋을 듯 싶네요.

프로젝트 소스 파일에서 로그인 화면을 호출하고 로그인 화면에서

정상적으로 로그인이 되면 메인 폼을 호출하는 식으로 말이죠.

참고로 저의 프로젝트 소스 파일의 예입니다.

도움이 될런지...

그럼 항상 멋진 나날이 되길...



function CheckUser: Boolean;

begin

Result := False;

try

frmPassWord := TfrmPassWord.Create(Application);

if frmPassWord.ShowModalSanoSelect = mrOk then Result := True;

finally

frmPassWord.Free;

end;

end;



begin

if AlreadyRun('프로그램명') then Halt; // 중복 실행의 검사

if InvalidResolution then Halt; // 해상도 검사



Application.Initialize;

Application.Title := '프로그램명';



Application.CreateForm(TfrmDataModule, frmDataModule); //데이터 모듈 생성

if CheckUser then begin // 로그인 화면을 호출하는 함수 호출

frmSplash := TfrmSplash.Create(Application); // 스플레쉬 화면 호출

frmSplash.Show;

frmSplash.Update;



Application.CreateForm(TfrmMain, frmMain); // 자동 생성 폼

Application.CreateForm(TfrmExcept, frmExcept); // 자동 생성 폼



frmSplash.Hide; // 스플레쉬 화면 감춤

frmSplash.Free; // 스플레쉬 화면 제거



Application.Run; // 프로그램 수행

end;

end.