Q&A

  • formclose 를 호출할 수는 없을까여.....?
함수를 부르듯이 formclose를 호출하려면 어떻게 해야 할까여....?

예를 들어

procedure TFM_OT1018.조은함수()
begin
      FormClose(어쩌구 저쩌구.....  이런 식으로여....);
end;
이렇게 써 보려고 합니다.........


FormClose 함수의 선언은 아래처럼 되어 있구여

procedure TFM_OT1018.FormClose(Sender: TObject; var Action: TCloseAction);

sender는 객체의 이름을 쓰면 될텐데.....

var Action: TCloseAction  는 뭘 써야 할지 모르겠군요......
3  COMMENTS
  • Profile
    하기 2002.06.18 20:21
    var Action: TCloseAction에는 아마도
        caNone, caHide, caFree, caMinimize 이중 하나를 쓰시면 될것 같은데
       이중 아마도 caFree를 가장 많이 쓰는것 같던데...
       아래의 약간의 문장을 보니  조금은 다듬으셔야
       제대로 사용 할것 같은 생각이 드는군요... 그럼  ^^;


  • Profile
    조근영 2002.06.18 20:31
    에구....  답변 정말 빨리 주시네요....  고마워라...^^

    근데여.......

    formclose(FM_OT1018, caFree);  --> 요렇게 써 봤는데

    constant object cannot be passed ad var parameter--> 요런 메세지가 뜨네용.....

    영어가 짧아서리 잘은 모르지만.....cafee --> 이렇게는 못쓴다는 말 같은디...^^



  • Profile
    하기 2002.06.18 20:37
    에궁 저는 영어가 아주 부족해서  ^^;
    아마도 해당 procedure에
    var Action: TCloseAction 에대한 정의가 없어서 그런것 같군요^^;
    저는 이런식으로 쓰져...
    procedure ......(Sender : TObject);
    var
      sAction : TCloseAction;
    begin
      sAction := caFree;
      formclose(FM_OT1018, sAction);
    end;
    에궁... 저의 허접한 코딩실력 다 뽀록 나네요 *^^*
    다른 좋은 방법이 있으면 고수님들 알려 주세요....