一个关于标签式窗体的问题! 有一本书叫《delphi 程序开发范例宝典 第二版》,它的第52个实例对我非常有用。但不知道子窗体上的退出按钮怎么做,例程没有给出代码,有没有高手帮助解决一下!需要源程序的告诉我邮箱,我给你们发! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 新建一个单元unit Unit1;interface uses Messages;const WM_FORM_CLOSED_INFO = WM_USER + 100;implementationend.然后主窗体子窗体都引用这个单元。在主窗体增加一下事件procedure HandleFormClosedMsg(var Message: TMessage); message WM_FORM_CLOSED_INFO;procedure TFrmMain.HandleFormClosedMsg(var Message: TMessage);begin if Message.Msg = WM_FORM_CLOSED_INFO then FreeTabSheet(PageControl1.ActivePage);end;在子窗体的退出事件中PostMessage(Application.MainForm.Handle, WM_FORM_CLOSED_INFO, Self.Handle, 0); 我以前是直接调用主窗体的 FreeTabSheet ,关是关了,就是报错。希望你能给个原理说明,发到我邮箱,[email protected] 十分感谢! 如何查找到特定的IE窗口,然后获得它的接口控制IE中的网页 【to-all】2009能否让delphi再复生机? SCOKET取文件? 关于读写器读写IC卡程序编写 急! 百思不解问题!请高手指教 如何设定打印机的纸张大小? 郁闷。我的win2000,我什么输入法也不想要,可是删除掉,注销或重新启动又全都回来了。帮帮忙吧。 潮汐第三次报到,各位高手再次打扰了,请帮助过我的人进来看看:)在线急等! 请问大家那里有project2000下载的? 网线的制作 Delphi 7 的utf8encode函数中文乱码 高分求解delphi三层问题
uses
Messages;
const WM_FORM_CLOSED_INFO = WM_USER + 100;implementationend.
然后主窗体子窗体都引用这个单元。
在主窗体增加一下事件procedure HandleFormClosedMsg(var Message: TMessage); message WM_FORM_CLOSED_INFO;procedure TFrmMain.HandleFormClosedMsg(var Message: TMessage);
begin
if Message.Msg = WM_FORM_CLOSED_INFO then
FreeTabSheet(PageControl1.ActivePage);
end;
在子窗体的退出事件中PostMessage(Application.MainForm.Handle, WM_FORM_CLOSED_INFO, Self.Handle, 0);