안녕하십니까?
매번 질문만 올리게 되네요. 실력이 좀 모자란 넘이라....^_^;
처음 프로그램 실행시 회사로고가 이미지로 뜨고 2초후에 패스워드 화면으로 진행됩니다.
사용자명과 패스워드 입력한후 확인하면 메인화면으로 들어가죠!
근데 프로그램 실행속도 향상을 위해서 회사로고 이미지 화면을 무시하고
패스워드 입력화면으로 바로 들어가게끔
project/option에서 메인 폼을 패스워드 입력화면 으로 선택한후 실행하니깐 패스워드 입력화면은 뜨는데 패스워드 입력후 확인하니깐
메인화면으로 들어가는게 아니라 바로 종료가 됩니다. 무신 이유인지...
데이타베이스 콤포넌트도 로고이미지 화면에서 패스워드 입력화면으로 옮긴후 실행시켰는데도 그러네요. 또 다르게 설정해 줄게 있는지 고수님들 갈켜주세용~~~
그럼 기다리고 있겠습니다. 수고하세여...
> 안녕하십니까?
> 매번 질문만 올리게 되네요. 실력이 좀 모자란 넘이라....^_^;
> 처음 프로그램 실행시 회사로고가 이미지로 뜨고 2초후에 패스워드 화면으로 진행됩니다.
> 사용자명과 패스워드 입력한후 확인하면 메인화면으로 들어가죠!
> 근데 프로그램 실행속도 향상을 위해서 회사로고 이미지 화면을 무시하고
> 패스워드 입력화면으로 바로 들어가게끔
> project/option에서 메인 폼을 패스워드 입력화면 으로 선택한후 실행하니깐 패스워드 입력화면은 뜨는데 패스워드 입력후 확인하니깐
> 메인화면으로 들어가는게 아니라 바로 종료가 됩니다. 무신 이유인지...
> 데이타베이스 콤포넌트도 로고이미지 화면에서 패스워드 입력화면으로 옮긴후 실행시켰는데도 그러네요. 또 다르게 설정해 줄게 있는지 고수님들 갈켜주세용~~~
> 그럼 기다리고 있겠습니다. 수고하세여...
안녕하세요.
메인폼을 패스워드폼으로 하시면 안됩니다. 왜냐면 메인폼은 프로그램 실행중에 닫히면 안되기 때문이죠. 메인폼이 닫힌다는 것은 곧 프로그램이 종료되는 것과 같죠. 메인폼을 패스워드를 입력한 후에 나오는 폼으로 하시고, 프로젝트를 수정하여 패스워드를 체크한 후 메인폼으로 들어가게 하세요.
아래는 프로그램 실행시 패스워드를 체크한 후 패스워드가 맞을 경우 메인폼으로 넘어가게 하는 예제입니다. 참고하세요.
{프로젝트 소스}
program Project1;
uses
Forms,
Controls, //ModalResult를 체크하기위해 추가
PasswordUnit in 'PasswordUnit.pas' {PasswordForm};
MainUnit in 'MainUnit.pas' {MainForm}
{$R *.RES}
function IsValidUser:Boolean;
begin
PasswordForm:= TPasswordForm.Create(Application);
try
Result:= PasswordForm.ShowModal=mrOk;
finally
PasswordForm.Free;
end;
end;
begin
Application.Initialize;
if IsValidUser then begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
{PasswordForm}
procedure TPasswordForm.LoginButtonClick(Sender:TObject);
begin
if PasswordEdit.Text='1234' then ModalResult:= mrOk
else
ShowMessage('비밀번호를 잘못 입력하셨습니다!');
end;