C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 팁&트릭
C++Builder Programming Tip&Tricks
[400] [Tip] ActiveForm 에서 Event 발생시키기
skywind [skywind] 7421 읽음    2003-07-05 11:54

제 경험으로는

void __fastcall TActiveFormXImpl::PaintEvent(TObject *Sender)
{
  Fire_OnPaint();
}

void __fastcall TActiveFormX::Button1Click(TObject *Sender)
{
// 여기서 위의 Fire_OnPaint()를 호출하는 방법을 찾을수 없었습니다.
// 혹시 알고 계시는 분은 알려 주세요... 감솨
}

이런 문제를 해결하려고 하면...

1. TypeLibrary editor 에서 Event함수를 추가합니다.

e.g.
  ...
  void            __fastcall OnPaint();
  void            __fastcall OnIn();   //추가된 Event
  ...

2. KeyPressEvent 함수를 아래 처럼 변경하고...

//---------------------------------------------------------------------------
void __fastcall TActiveFormXImpl::KeyPressEvent(TObject *Sender, char &Key)
{
  short TempKey;
  TempKey = (short)Key;

  m_VclCtl->meLog->Lines->Add("Key; "+String(TempKey));


  //Fire_OnKeyPress(&TempKey);
  //Key = (short)TempKey;

  switch(TempKey)
  {
    case 100:
      Fire_OnIn();   //추가한 event를 호출
      break;
  }

}
//---------------------------------------------------------------------------

3. ActiveForm 의 버튼에서 Event를 발생시키기.
//---------------------------------------------------------------------------
void __fastcall TActiveFormX::Button1Click(TObject *Sender)
{
  SendMessage(this->Handle,WM_CHAR,100,0);
}
//---------------------------------------------------------------------------

4. ActiveForm을 사용하는 프로그램에서 OnIn에 처리

//VB
Private Sub ActiveFormX1_OnIn()
MsgBox "In"
End Sub

이렇게 하면 간단합니다.

+ -

관련 글 리스트
400 [Tip] ActiveForm 에서 Event 발생시키기 skywind 7421 2003/07/05
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.