[델파이] 폼 디자인할 때 콤포넌트에 Mouse 이벤트 받게 하기..

[델파이] 폼 디자인할 때 콤포넌트에 Mouse 이벤트 받게 하기.. 

2003.11.01

콤포넌트를 만들 때 디자인 타임에 Mouse 클릭에 반응해서 뭔가
바뀌게 하고 싶을 때가 있는데
예를 들면 TPageControl 에서 Tab 을 클릭하면 
Page 가 바뀌는 경우가 있는데 이런건.. 

CM_DESIGNHITTEST 메시지를 받아서 Result 값으로 0 이상의 값을 돌려주면
된다고 합니다.

콤포넌트 정의에

protected
procedure CMDesignHitTest(var msg: TMessage); message CM_DESIGHHITTEST;

를 추가하고..

procedure TMyCmp.CMDesignHitTest(var msg: TMessage);
begin
  Result := 1;
end;

저렇게 해주면 콤포넌트 디자인 타임에도 Mouse 이벤트를 처리할 수 있습니다.