1,184
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
snake_eye 2003-02-12
- 打赏
- 举报
if (ssAlt in shift)and(key=115) then key:=0;同意……
diruser 2003-02-12
- 打赏
- 举报
同意楼上的
Billy_Chen28 2003-02-11
- 打赏
- 举报
详细一点：
type
TForm1 = class(TForm)后，Private前面写：
procedure SysCommand(var msg:TWMSysCommand);message WM_SysCommand;
实现；
procedure TForm1.SysCommand(var msg: TWMSysCommand);
begin
if msg.CmdType = SC_CLOSE then
begin
msg.cmdtype:= SC_DEFAULT;
Hide;
end;
inherited;
end;
type
TForm1 = class(TForm)后，Private前面写：
procedure SysCommand(var msg:TWMSysCommand);message WM_SysCommand;
实现；
procedure TForm1.SysCommand(var msg: TWMSysCommand);
begin
if msg.CmdType = SC_CLOSE then
begin
msg.cmdtype:= SC_DEFAULT;
Hide;
end;
inherited;
end;
Billy_Chen28 2003-02-11
- 打赏
- 举报
TForm1 = class
...
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
end;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_CLOSE then
inherited
end;
...
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
end;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_CLOSE then
inherited
end;
grail_ 2003-02-11
- 打赏
- 举报
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
