Q&A

  • 강제로 끝내려하는데 잘 않됩니다.
안녕하세요



응용프로그램을 개발중인데 FORM CREATE 부분에 코딩을 했습니다.

그런데 이부분에서 적합하지않으면 프로그램 자체를 종료하려고 합니다.



procedure TForm1.FormCreate(Sender: TObject);

var

bo : Boolean;

begin

bo := true;

if bo then begin

// 프로그램 종료

close;

exit;

end;

end;

위처럼 코딩을 해도 프로그램이 끝나지 않더군요.

어떻게 해야 프로그램이 끝나는지 알려주시면 감사하겠습니다.

1  COMMENTS
  • Profile
    류한규 1999.11.23 18:18
    OnShow나 OnActivate에서 Close기켜야 합니다.

    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;

    > 위처럼 코딩을 해도 프로그램이 끝나지 않더군요.

    > 어떻게 해야 프로그램이 끝나는지 알려주시면 감사하겠습니다.