|
type TyourForm = class(TForm)
private
{ Private declarations }
procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
end;
const
ID_ABOUT = Word(-1);
implementation
procedure TyourForm.wmSysCommand;
begin
if Message.wParam = ID_ABOUT then
begin
<some actions>
end;
inherited;
end;
procedure TyourForm.FormCreate(Sender: TObject);
var sysMenu: THandle;
begin
sysMenu := GetSystemMenu(Handle, False);
AppendMenu(sysMenu, MF_SEPARATOR, Word(-1), '');
AppendMenu(sysMenu, MF_BYPOSITION, ID_ABOUT, 'About...');
end;
|
[浏览：
次]
|
收藏
推荐
评论加载中…
