16,749
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
山东蓝鸟贵薪 2012-09-30
- 打赏
- 举报
批准了，马上散分中
山东蓝鸟贵薪 2012-09-30
- 打赏
- 举报
该问题已解决
若有再想研究可以再看看如下帖子
http://topic.csdn.net/u/20120928/17/07a5800e-e4e0-4b00-bd2d-9ff499397d18.html
答案就在其中的
若有再想研究可以再看看如下帖子
http://topic.csdn.net/u/20120928/17/07a5800e-e4e0-4b00-bd2d-9ff499397d18.html
答案就在其中的
hsfzxjy 2012-09-29
- 打赏
- 举报
散分吧。。
山东蓝鸟贵薪 2012-09-29
- 打赏
- 举报
nm_wyh
(冰河)
谢谢你的方法，我解决了
(冰河)
谢谢你的方法，我解决了
hsfzxjy 2012-09-29
- 打赏
- 举报
祝你成功
山东蓝鸟贵薪 2012-09-29
- 打赏
- 举报
谢谢各位赐教，我再研究研究
OO_is_just_P 2012-09-28
- 打赏
- 举报
扔个ApplicationEvents，自己看On
hsfzxjy 2012-09-28
- 打赏
- 举报
编写application.onminimize事件。。
nm_wyh 2012-09-28
- 打赏
- 举报
拦截最小化的消息！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, CheckLst;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message:Tmessage);
message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message:Tmessage);
begin
if Message.WParam=SC_MINIMIZE then Exit // 拦截一下~~
else inherited;
end;
end.
从别处抄的，应该没什么问题！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, CheckLst;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message:Tmessage);
message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message:Tmessage);
begin
if Message.WParam=SC_MINIMIZE then Exit // 拦截一下~~
else inherited;
end;
end.
从别处抄的，应该没什么问题！
山东蓝鸟贵薪 2012-09-28
- 打赏
- 举报
真奇怪的问题
