2014年1月5日
单击最小化按钮隐藏单击托盘显示
摘要： 附件：http://files.cnblogs.com/xe2011/OnMinsize.rarunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) TrayIcon1: TTrayIcon; procedure TrayIcon1Click(Sender: TObject); private procedure OnMinsize(v... 阅读全文
posted @ 2014-01-05 12:17 XE2011 阅读(229) 评论(0) 推荐(0)