창의 최소화버튼을 사용하지 못하게 하는건 여러곳을 찾아다니며 아래와 같이 구현했는데요.
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Msg:TWMSysCommand) ;
begin
if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then
Msg.CmdType := SC_RESTORE;
end;
또 한가지 문제가 있습니다.
[바탕화면바로가기]아이콘을 클릭하거나 [WinKey+D]키를 누르면 최소화됩니다.
이걸 막는 방법이 있으면 알려주세요.