激情放送

本人想做一个短消息发送的控件（短消息接口采用SMPP协议，网络采用Tcp/Ip).  
  但是本人是一个Delphi入门者，不知道如何编写VCL的属性、方法、事件。恳请过来人大开胸怀。  
  有什么资料附送的话，不胜感激：wolfAone@263.net  
  问题点数：53、回复次数：4Top

1 楼InsideDelphi（ID）回复于 2001-07-06 21:25:30 得分 3

看Delphi5开发人员指南吧Top

2 楼copy_paste（木石三）回复于 2001-07-06 21:36:02 得分 50

type  
      TMyObject   =   class  
      private  
          FEvent:   TNotifyEvent;  
          FValue:   string;  
          procedure   SetValue(Value:   string);  
      public  
          constructor   Create;   override;  
      published  
          property   Value:   string   read   FValue   write   SetValue;      
          property   Event:   TNotifyEvent   read   FEvent   write   FEvent;  
      end;  
   
  procedure   TMyObject.SetValue(Value:   string);  
  begin  
      if   Assigned(FEvent)   then   FEvent(Self);    
      FValue   :=   Value;  
  end;Top

3 楼wolfAone（30，奋斗成男人）回复于 2001-07-07 15:09:46 得分 0

都没几个人知道呀？Top

4 楼copy_paste（木石三）回复于 2001-07-07 19:24:51 得分 0

老兄，上面不是定义了一个类吗，至于你想做的问题我就不知了。Top

相关问题

• 消息
• fevent
• fvalue
• tmyobject
• tnotifyevent
• setvalue
• 采用
• 短消息
• procedure
• 想做

• 帖主：wolfAone
• InsideDelphi
• copy_paste

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载