Q&A

  • 이벤트 실행시 다른 이벤트를 부를때(질문)
버튼이벤트가 실행중에서 조건이 맞으면 폼종료이벤트를 부르려고 하는데

어떻게 해야 하나요?

알려주시와요

2  COMMENTS
  • Profile
    Lynian 2001.06.12 20:44
    초보 wrote:

    > 버튼이벤트가 실행중에서 조건이 맞으면 폼종료이벤트를 부르려고 하는데

    > 어떻게 해야 하나요?

    > 알려주시와요



    ---

    이걸 원하시는지..

    procedure TForm1.Button2Click(Sender: TObject);

    begin

    Close;

    end;



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    if edit1.Text = '1' then

    begin

    Button2Click(Sender); ////////////

    end else

    begin

    ShowMessage('^^');

    end;

    Edit1.Text:='';

    end;



    end.



  • Profile
    김상면 2001.06.12 20:43
    procedure TForm1.Button1Click(Sender: TObject);

    begin

    if 조건 then

    begin

    Close; // 이렇게만 하면 폼 클로스 이벤트로 간다...

    Exit;

    end

    else

    Button2Click(Self); // Button2Click 이벤트를 실행한다...

    end;



    procedure TForm1.Button2Click(Sender: TObject);

    begin

    ............

    ............

    end;



    좋은하루 되세요...



    초보 wrote:

    > 버튼이벤트가 실행중에서 조건이 맞으면 폼종료이벤트를 부르려고 하는데

    > 어떻게 해야 하나요?

    > 알려주시와요