F
fly555
Unregistered / Unconfirmed
GUEST, unregistred user!
先定义了一个过程 private { Private declarations } procedure wmclose(var msg:TWMSysCommand);message wm_syscommand;写法这样： procedure TFrm_zcbbasekc.wmclose(var msg: TWMSysCommand);begin if msg.CmdType=SC_CLOSE then begin msg.CmdType:=0; showmessage('单据未保存，请保存或放弃'); end else inherited;end;我在窗体上加了个按钮。在这个按钮里怎么写，才能让程序执行到上面这个消息里面去呢？也就是如何发送一个消息让其接收呀？
rocedure TfrmDataInfo.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin canclose := Application.MessageBox('是否退出？', '询问', MB_YESNO) = id_yes; end;