안녕하세요. 최용일입니다.

직접 객체를 올려놓든지 동적으로 생성해서 연결하든지 별다른 차이는 없습니다.

델파이 IDE에서 한다면 이벤트 탭에서 이벤트 연결해주고, 동적으로 생성한다면 코딩으로 연결해주시면 됩니다. 어떠한 경우든지 해당 이벤트는 코딩이 되어 있어야죠...

Button1.OnClick := Button1Click;
Image1.OnMouseMove := Image1MouseMove;

위와 같은 식으로 코딩되어 있는 이벤트를 연결시켜주시면 됩니다. 이벤트마다 각각의 타입이 있으니까 같은 타입의 이벤트를 연결시켜주셔야하구요.

^^ 항상 즐코하세요...

아 지송한디영..그럼 좀 구체적으로...
var
  NewC: TYShape;
  PropInfo:PPropInfo;
  m: TMethod;
  me: TNotifyEvent;
........................................
그 담에...
TYShapes는 만든 콤포넌트임..

   PropInfo := GetPropInfo(NewC.classinfo , 'OnResize');
   if PropInfo<>nil then begin
      me := shape_resize;
      m := TMethod(me);
      SetMethodProp(NewC, PropInfo, m);
   end;

이렇게 했구영... shape_resize는 프로시저구여

procedure Tfinsert_vatualvalue.shape_resize(Sender: TObject);
begin
   if (TYShape(Sender).linemode in [ln90]) then begin
      ed_screeny.Text := inttostr(TYShape(Sender).Height);
      showmessage(inttostr(TYShape(Sender).Height));
      TYShape(Sender).Width := 11;
   end
   else begin
      ed_screenx.Text := inttostr(TYShape(Sender).width);
      TYShape(Sender).Height := 11;
   end;
end;
입니다.....
근디..if PropInfo<>nil then begin 조건에서... 통과하지를 않네영..
분명 객체는 생성되서 잘 나오고 있는데..propinfo가 들어가지 않는게...
이상하네영..

안녕하세요. 최용일입니다.

흠~ RTTI를 왜 사용하시는지 이유를 잘 모르겠네요...

그냥 형변환해서 넣어주시면 될것같은데...

TYShapes(NewC).OnResize := shape_resize;

위와 같이 하시면 될것같네요...

디자인타임모듈 만들때 아니면 RTTI 사용안하시는 것이 더 좋습니다.

^^ 항상 즐코하세요...