扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
![]() 图1 添加组件后的窗体 |
procedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, ''); with MainMenu1 do begin for I := 0 to Items.Count - 1 do AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup, Items[I].Handle,PAnsiChar(Items[I].Caption)); end; end; |
procedure TForm1.WMSysCommand (var Msg: TWMSysCommand); var Item: TMenuItem; begin Item := MainMenu1.FindItem(Msg.CmdType, fkCommand); if Item <> nil then Item.Click; inherited; end; |
unit Unit1; interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; procedure Exit1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMSysCommand (var Msg: TWMSysCommand); var Item: TMenuItem; begin Item := MainMenu1.FindItem (Msg.CmdType, fkCommand); if Item <> nil then Item.Click; inherited; end; procedure TForm1.Exit1Click(Sender: TObject); begin Close; end; procedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, ''); with MainMenu1 do begin for I := 0 to Items.Count - 1 do AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup, Items[I].Handle,PAnsiChar(Items[I].Caption)); end; end; end. |
![]() 图2 程序运行结果 |
婵犵鈧啿鈧綊鎮樻径鎰畺闁靛ň鏅滄慨婊堟偨椤栨稓鎽冮柟鐑╂櫊瀹曟岸宕堕埡鍌滄殸闂佽鍨伴崢鏍姳閿涘嫭鍠嗘い銈呭姬婵☆偅婢樺Λ妤呮偂濞嗘挸瀚夐柍褜鍓熷顒侊紣娓氣偓閻涙捇鏌涘┑鍛樂缂佹鐭傞獮搴ㄥ焵椤掑嫬瀚夋い鏍ㄧ懁缁诲棝鏌熼褍鐏茬紒杈ㄧ箞閺屽洭鏁愰崟顓犳澖闁荤姳闄嶉崹钘壩i崟顖涘殜闁硅泛顫曢埀顒€锕︾槐鏃堝箣閻愬弬妤呮煛閸偄鐏﹂柛瀣墬缁傛帞鎹勯搹瑙勵啈闂佸搫瀚烽崹閬嶅磻瀹ュ鍎嶉柛鏇ㄥ墯娴犳ê霉閿濆棗鈻曢柍褜鍓氶弻銊ф閻愬鈻曢悗锝傛櫇椤忛亶鏌曢崱顓熷