如何修改窗体的系统菜单栏??
在窗体系统的菜单栏有“还原",移动，大小，等等。
我想自己随意修改。
怎么实现呢
问题点数：0、回复次数：4Top
1 楼galeboy（狂风）回复于 2003-06-01 00:51:56 得分 0
type
TFormMain = class(TForm)
...
private
procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
PointTemp: TPoint;
begin
if Msg.wParam 61587: // sysIcon clicked
begin
if GetCursorPos(PointTemp) then
PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
end
else
inherited;
end;
end;Top
2 楼galeboy（狂风）回复于 2003-06-01 00:52:52 得分 0
type
TFormMain = class(TForm)
...
private
procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
PointTemp: TPoint;
begin
if Msg.wParam = 61587: // sysIcon clicked
begin
if GetCursorPos(PointTemp) then
PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
end
else
inherited;
end;
end;
Top
3 楼galeboy（狂风）回复于 2003-06-01 00:53:26 得分 0
type
TFormMain = class(TForm)
...
private
procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
PointTemp: TPoint;
begin
if Msg.wParam = 61587 then // sysIcon clicked
begin
if GetCursorPos(PointTemp) then
PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
end
else
inherited;
end;
end;
Top
4 楼kangji（尾鱼头）回复于 2003-06-01 06:39:16 得分 0
AppendMenuTop
