나르
(박진덕)
|
|
왜 아무도 답변을 안하는지 ㅠ
제가 아는 범위 내에서 답변달게요 ㅎㅎ
procedure(m1, m2, m3:integer) of object;
이런 형태를 메소드포인터라고 합니다. 자세한 설명은 구글링 하시면 되고...
이게 델파이 내에서 이벤트핸들러 라고 해서 아주 많이 쓰입니다.
그리고 객체간의 Loose coupling 에서도 아주 많이 쓰입니다.
(나중에 많이 쓰시게 될겁니다.)
예를 들어 보겠습니다.
빈프로젝트 하나 만드시고 버튼 하나 올리고 버튼의 클릭 이벤트 를 생성합니다. 아래와 같이...
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
그런 다음 폼에서 우클릭하시고 "View as Text" 선택하시면 아래와 같이 보일겁니다.
object Button1: TButton
Left = 352
Top = 168
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
여기 보시면 OnClick = Button1Click 라고 하는데..
즉 OnClick 이라는 프로퍼티에 Button1Click 이라는 메소드를 할당한겁니다.
또한 TButton 의 상속 구조가 TButton -> TWinControl -> TControl
이렇게 되어 있는데요.
TControl 클래스를 보시면
TControl = class(TComponent)
private
....
FOnClick: TNotifyEvent;
....
protected
property OnClick: TNotifyEvent read FOnClick write FOnClick
stored IsOnClickStored;
....
여기서 보셔서 알 수 있듯이 님이 폼에 버튼을 올려두고 클릭 이벤트를 하나 만들면 내부적으로 FOnClick 이라는 메소드 포인터 변수에 님이 만든 이벤트 정보를 저장되게 됩니다.
(참고로 TNotifyEvent = procedure(Sender: TObject) of object;)
이게 어떻게 작동하는가 하면 Button1 이 클릭이 되면
if Assigned(FOnClick)
이것을 통해 님이 Button1Click 을 선언했으면 님이 선언된 Button1Click 이 호출되는 것이고 선언이 없으면 그냥 무시 되어 집니다.
글로 설명하려니까 힘드네요 ㅠ
질문하는거 보니까 시작한지 얼마 안되신거 같으신데..
조금만 하시다보면 메소드포인터를 정말 많이 쓰시게 될겁니다.
객체간의 결합도의 낮추는데 정말 많이많이 쓰입니다. ㅠ
수고하세요.
2017-04-26 오후 2:34:47
|
|
