unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMSysCommand(var Message: TWMSysCommand); begin case Message.CmdType of SC_MAXIMIZE: Exit; SC_MINIMIZE: Exit; end; inherited; end; end.
学习 Message(20): WM_SYSCOMMAND 消息[四] : 使最大最小化按钮失效
最新推荐文章于 2019-12-12 12:25:29 发布