消息是这样定义的:
const
SX_REFRESH = WM_USER + 300;
........................procedure SXREFRESH(var Msg:TMessage); message SX_REFRESH;............................procedure TForm1.SXREFRESH(var Msg:TMessage);
begin
edKeyWord.OnChange(edKeyWord);
end;
测试:
procedure TForm1.btn_event_RefreshClick(Sender: TObject);
begin
PostMessage(TForm1.Handle,SX_REFRESH,0,0);
end;会报错,access ...。edKeyWord是放置在一个xpPageControl里的一个xpGroupBox里;
而在另一个窗体,不用xpPageControl及xpGroupBox时,自定义的消息可以正常运行。哪位大哥知道是怎么回事吗?
const
SX_REFRESH = WM_USER + 300;
........................procedure SXREFRESH(var Msg:TMessage); message SX_REFRESH;............................procedure TForm1.SXREFRESH(var Msg:TMessage);
begin
edKeyWord.OnChange(edKeyWord);
end;
测试:
procedure TForm1.btn_event_RefreshClick(Sender: TObject);
begin
PostMessage(TForm1.Handle,SX_REFRESH,0,0);
end;会报错,access ...。edKeyWord是放置在一个xpPageControl里的一个xpGroupBox里;
而在另一个窗体,不用xpPageControl及xpGroupBox时,自定义的消息可以正常运行。哪位大哥知道是怎么回事吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货