我想用QR控件做一个动态设计的标签打印程序:具体就是用户点了一个按钮后,再
在QR的Bands上点一下,就可以在鼠标点击的位置创建一个QRLabel控件,双击QRLabel
后就可以通过一个Edit修改QRLabel的Caption,…………当然还有一些其他的操作……但是问题是QR和QRLabel都没有Click事件和双击事件,它们对所有的鼠标操作都没有
反应,我听说可以截获Windows的消息,但不知道怎么去做……?? 恭请高手指点…………
在QR的Bands上点一下,就可以在鼠标点击的位置创建一个QRLabel控件,双击QRLabel
后就可以通过一个Edit修改QRLabel的Caption,…………当然还有一些其他的操作……但是问题是QR和QRLabel都没有Click事件和双击事件,它们对所有的鼠标操作都没有
反应,我听说可以截获Windows的消息,但不知道怎么去做……?? 恭请高手指点…………
WM_CLOSEFRAME=WM_USER + 109 //用户定义消息用:WM_USER发消息
PostMessage(Application.Handle,WM_CLOSEFRAME,1,0) ;自定义消息事件
Procedure TFrmMain.AppMessage(Var msg:Tmsg;Var Handled:Boolean);
begin
if msg.message=WM_CLOSEFRAME then
begin
//处理事件
handled :=True;
end;
end;
WINDOWS接收事件
procedure TFrmMain.FormCreate(Sender: TObject);
begin
Application.OnMessage :=AppMessage;
end;