截获非客户区消息
procedure WMNCMOUSEMOVE(var Message: TMessage);message WM_NCMOUSEMOVE;procedure TForm1.WMNCMOUSEMOVE(var Message: TMessage);
begin
if Message.wParam = HTMINBUTTON//这是最小化
begin
end;
end;
procedure WMNCMOUSEMOVE(var Message: TMessage);message WM_NCMOUSEMOVE;procedure TForm1.WMNCMOUSEMOVE(var Message: TMessage);
begin
if Message.wParam = HTMINBUTTON//这是最小化
begin
end;
end;
TFM_DL_SRV = class(TForm)
……
……
procedure SysCommand(var msg:TWMSysCommand);message WM_SysCommand;
……
procedure TFM_DL_SRV.SysCommand(var msg: TWMSysCommand);
begin
if msg.CmdType = SC_MINIMIZE then
begin
//你的代码
end;
inherited;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
今天,刚学会用!!!