to:debussy(debussy)
sorry,我用的是
delphi 5.0
Form没有OnMaxmize事件
sorry,我用的是
delphi 5.0
Form没有OnMaxmize事件
解决方案 »
- 多年没发过帖子,发个帖子散散分
- Activex弹出窗口问题
- 请问我的一个软件在接收串口的信息。我还想用另外的软件监测串口的信息 ,该怎样做??
- 请问IdHttp Post数据时.如果Post带换行的内容?.比较急.分不够再加.在线等待.
- 使用数据集table组件编写简单的桌面数据数,数据库使用dbf,库没有索引现在要在dbgrid中排序
- 数据库的数据回滚问题,请各位帮帮我
- 请问如何删除一个数组的第10-20位
- 各位兄台,在下有礼了,请教一个问题,在哪可以得到spy++(前提:不装vc)
- 120!!!急救!!!
- 强制Delphi显示四位年份为何无效
- 用NMUDP控件可以在局域网中传输.db的文件格式吗?
- 科學計數法問題
sorry,我用的是
delphi 5.0
Form没有OnMaxmize事件
public
procedure wmsyscommand(var msg:Twmsyscommand);message wm_syscommand;procedure Tform1.wmsyscommand(var msg:Twmsyscommand);
begin
if msg.CmdType=sc_maximize then
inherited;
TForm1 = class(TForm)
private
procedure msg(var msg:TMessage);
message wm_syscommand;
public
end;
procedure tform1.msg(var msg:TMessage);
begin
if msg.WParam=sc_maximize then showmessage('最大化');
end;
onresize窗体只要有一点变化,就触发这个事件了
我现在只想窗体最大化时,才能触发这个事件!
// Application.OnMinimize; //参考
// Application.OnRestore; //参考type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSYSCOMMAND(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
inherited;
case Msg.CmdType and $FFF0 of
SC_MINIMIZE: Application.Title := '最小化';
SC_RESTORE: Application.Title := '恢复';
SC_MAXIMIZE: Application.Title := '最大化';
end;
end;
begin
if Self.WindowState in [wsMaximized] then
begin
do something .....
end;
end;
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
procedure OnNCLButtonDown(var msg: TMessage); message WM_NCLBUTTONDOWN;
procedure OnNCLButtonDblClk(var msg: TMessage); message WM_NCLBUTTONDBLCLK;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.OnNCLButtonDown(var msg: TMessage);
begin
case msg.WParam of
HTMAXBUTTON:
Caption := 'Click Max Button';
HTMINBUTTON:
Caption := 'Click Min Button';
HTCLOSE:
Caption := 'Click Close Button';
else
Caption := '';
end;
inherited;
end;procedure TForm1.OnNCLButtonDblClk(var msg: TMessage);
begin
if msg.WParam = HTCAPTION then
Caption := 'Double Click Title'
else
Caption := '';
inherited;
end;end.