procedure TtestForm.FormCreate(Sender: TObject);
begin
if 조건 then begin
처리...
end
else begin
ShowMessage('폼생성 실패');
???? ------> 어떻게 처리를 해야합니까?....
end;
end;
보통 .dpr 파일은 이렇게 구성되죠...
1) Application.Initialize;
2) Application.CreateForm(xxxxx);
3) Application.Run;
이중에서 TtestForm.FormCreate가 호출되는 곳은 2)부근입니다.
3)에서 메인폼이 보여지게 되는 데... TtestForm.FormCreate에서 종료를
잘못하게 되믄... 번쩍거릴 수도 있게 됩니다...ㅜㅜ.
따라서
??? 부분에 이렇게 코딩해 보심이....
Application.ShowMainForm := FALSE;
Application.Terminate;
폼생성시에 조건을 체크하여 조건에 맞지 않으면 폼이 나타나기전에 곧바로 폼을 닫을려고 합니다.. procedure TtestForm.FormCreate(Sender: TObject); begin if 조건 then begin 처리... end else begin ShowMessage('폼생성 실패'); ??...
고지범
•
2002.09.25 06:18
보통 .dpr 파일은 이렇게 구성되죠...
1) Application.Initialize;
2) Applicat...
1) Application.Initialize;
2) Application.CreateForm(xxxxx);
3) Application.Run;
이중에서 TtestForm.FormCreate가 호출되는 곳은 2)부근입니다.
3)에서 메인폼이 보여지게 되는 데... TtestForm.FormCreate에서 종료를
잘못하게 되믄... 번쩍거릴 수도 있게 됩니다...ㅜㅜ.
따라서
??? 부분에 이렇게 코딩해 보심이....
Application.ShowMainForm := FALSE;
Application.Terminate;
괜히 무안한 얼큰이었읍다.