組件消息高手進!在DELPHI中用PERFORM從一個組件類的事件代碼中傳自定義的消息到它的OWNER(如果是FORM),如何在該FORM的消息處理方法的代碼

Question

在DELPHI中用PERFORM從一個組件類的事件代碼中傳自定義的消息到它的OWNER(如果是FORM),如何在該FORM的消息處理方法的代碼中得知是由哪一個實例對象傳送給它消息的.最好給出代碼

Answer 1

在发送的时候如下
Self.Perform(WM_SELFDEFINED,Self.Tag,0);  //用WParam来标识发送者在处理的时候这样（在Form的WndProc里面）
....
  Inherited;
  if Msg=WM_SELFDEFINED then
    case Msg.WParam of
      //根据WParam来判断消息发送者
    end;
....

Answer 2

謝樓上的,還有一個問題,就是這樣做每次都要設各實例的TAG屬性,可不可以傳送消息時傳送字符呢如控件的NAME.

Answer 3

s:='It is me';
Self.Perform(WM_SELFDEFINED,Integer(@S),0);if  string(Pointer(Msg.wParam)^)='It is me' then ....