增加一个事件。可以再加分 现有一个自制控件TMyPanel,从TPanel继承下来,想给它增加一个事件OnChange。当给TMyPanel的Caption赋值的时候,能够触发这个OnChange事件。就有些像TEdit的OnChange事件那样。请给出源代码。多谢。分不够可以开贴另加。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 property OnChange: TNotifyEvent; property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;这样写太简单了吧?怎么在TMyPanel的Caption变化的时候触发呢??请指教 TMyPanel = Class(TPanel) FOnChange: TNotifyEvent; procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; public property OnChange: TNotifyEvent read FOnChange Write FOnChange; end;procedure TMyPanel.CMTextChanged(var Message: TMessage);begin if Assigned(FOnChange) then FOnChange(Self);end; 问题已经解决。多谢请看类似的第二贴http://community.csdn.net/Expert/topic/4834/4834043.xml?temp=.1362268lonoaer() 和postren(小虫)请进来再领100分,顺便再解答一下。星期日结贴。 两种Dropdown工具栏按钮 成功了 散分 copyFrom是不是不能拷贝很小的文件??? 动态数组问题,各位大虾进来指点一下啦! 关如何使用tidtcpserver发送消息给客户端? 管家婆中的窗体怎么扩大后里面的内容会全部显示? 谁做过DELPHI+SQLSERVER数据库自动备份的程序? 今天心情很不好,又有一个同事走了,我们要怎样才能留住人才呢? 谁用过tuxedo,有delphi的tuxedo控间吗? !!!SOS!!! 十万火急!!!如何在DELPHI5中编写出模拟PERSONAL SERVER环境的程序 菜鸟提问!! 那位高手能上传一个甘特图控件给我吖?急急急急急
FOnChange: TNotifyEvent;
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
public
property OnChange: TNotifyEvent read FOnChange Write FOnChange;
end;procedure TMyPanel.CMTextChanged(var Message: TMessage);
begin
if Assigned(FOnChange) then FOnChange(Self);
end;
请看类似的第二贴
http://community.csdn.net/Expert/topic/4834/4834043.xml?temp=.1362268
lonoaer() 和postren(小虫)请进来再领100分,顺便再解答一下。
星期日结贴。