똑같은 방식으로 호출하시면 됩니다... 단지 Key파라메터에 눌려진 키의값을 넣어서

호출하시면 됩니다...



임형호 wrote:

> 질문의 요지는 만약 프로그램에서

>

> procedure Tform1.button1Click(Sender: TObject);

> begin

> end;

>

> 위와 같이 버튼 이벤트를 작성했을 경우에

> 다른 부분에서

> button1click(sender); 이와같이 작성하면 button1click과 똑같은 처리를 할 수 있는데

>

> procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);

> 프로시저는 어떻게 호출할 수 있나요?

> 이것저것 인수값을 넣어보았는데 안되는군요. 혹시 안되는건 아닌가요?

> 정안되면 다른 방법으로 구현을 해야되겠지만 가능하다면 더욱 쉽게 코딩을 할 수 있을것 같습니다.

> 혹시 알고 계신분은 주저마시고 좀 알려주세요. 정말 고맙게 생각하겠습니다.

> 그럼 이만....

>

임형호 wrote:

> 질문의 요지는 만약 프로그램에서

>

> procedure Tform1.button1Click(Sender: TObject);

> begin

> end;

>

> 위와 같이 버튼 이벤트를 작성했을 경우에

> 다른 부분에서

> button1click(sender); 이와같이 작성하면 button1click과 똑같은 처리를 할 수 있는데

>

> procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);

> 프로시저는 어떻게 호출할 수 있나요?

> 이것저것 인수값을 넣어보았는데 안되는군요. 혹시 안되는건 아닌가요?

> 정안되면 다른 방법으로 구현을 해야되겠지만 가능하다면 더욱 쉽게 코딩을 할 수 있을것 같습니다.

> 혹시 알고 계신분은 주저마시고 좀 알려주세요. 정말 고맙게 생각하겠습니다.

> 그럼 이만....

>





형호님 안녕하세요? 구창민입니다.

똑같습니다. 그냥 인자를 넣어서 호출하시면 됩니다.



간단한 예를 들어 Edit2에서 Edit1KeyPress를 호출하고 싶다면..

아래처럼 쓰시면 됩니다.



procedure TForm1.Edit1KeyPress(...

begin

if key=#13 then ShowMessage('어? 왜 엔터쳤어 바보야.');

end;



procedure TForm1.Edit2KeyPress(...

begin

Edit1KeyPress(Edit2, key);

end;



Edit2에서 엔터를 입력하면 '어? 왜 엔터쳤어 바보야' 가 아마 나타날겁니다.



그럼, 즐거운 프로그래밍 되시길~