| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure OnWMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
const
MyButtonID = 100;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.OnWMSysCommand(var Msg: TWMSysCommand);
begin
case Msg.CmdType of
SC_MINIMIZE: ShowMessage('Minimize');
SC_MAXIMIZE: ShowMessage('Maximize');
SC_RESTORE: ShowMessage('Restore');
SC_CLOSE: ShowMessage('Close');
SC_CONTEXTHELP: ShowMessage('Context Help');
MyButtonID: ShowMessage('My Button');
end;
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Item: TMenuItemInfo;
begin
FillChar(Item, SizeOf(TMenuItemInfo), 0);
with Item do
begin
cbSize := SizeOf(TMenuItemInfo);
fMask := MIIM_TYPE or MIIM_ID;
fType := MFT_STRING;
dwTypeData := '&My menu button';
wID := MyButtonID;
end;
{ Добавим свою кнопку }
InsertMenuItem(GetSystemMenu(Handle, False),
SC_CLOSE, False, Item);
end;
end.
|
|
