안녕하세요
응용프로그램을 개발중인데 FORM CREATE 부분에 코딩을 했습니다.
그런데 이부분에서 적합하지않으면 프로그램 자체를 종료하려고 합니다.
procedure TForm1.FormCreate(Sender: TObject);
var
bo : Boolean;
begin
bo := true;
if bo then begin
// 프로그램 종료
close;
exit;
end;
end;
위처럼 코딩을 해도 프로그램이 끝나지 않더군요.
어떻게 해야 프로그램이 끝나는지 알려주시면 감사하겠습니다.
OnCreate에서는 Halt를 사용해야합니다.
Close는 폼이 생성후에 적용됩니다.
안장식 wrote:
> 안녕하세요
>
> 응용프로그램을 개발중인데 FORM CREATE 부분에 코딩을 했습니다.
> 그런데 이부분에서 적합하지않으면 프로그램 자체를 종료하려고 합니다.
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> bo : Boolean;
> begin
> bo := true;
> if bo then begin
> // 프로그램 종료
> close;
> exit;
> end;
> end;
> 위처럼 코딩을 해도 프로그램이 끝나지 않더군요.
> 어떻게 해야 프로그램이 끝나는지 알려주시면 감사하겠습니다.