我在窗体里用了BusinessSkinForm,在最小化,关闭时..窗体无法隐藏的问题!procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;procedure TForm1.WMSysCommand(var Message: TMessage);
begin
case Message.WParam of
SC_CLOSE: ShowMessage('CLOSE'); // 点击关闭按钮
SC_RESTORE: Showmessage('RESTORE');//点击恢复按扭
SC_MAXIMIZE:Showmessage('MAXIMIZE');//点击最大化按扭
SC_MINIMIZE:Showmessage('MINIMIZE');//点击最小化按扭
end;
没有加BusinessSkinForm时,是可以跑进WMSysCommand()函数的.
但是一加BusinessSkinForm..上面的函数就进不去了.同时.想隐藏visible := False; 也就没有办法了..
看了一下BusinessSkinForm..好象是在里面的
procedure TbsSkinStdButtonObject.DoMax;
begin
if Parent.WindowState = wsMaximized
then Parent.WindowState := wsNormal
else Parent.WindowState := wsMaximized;
end;procedure TbsSkinStdButtonObject.DoMin;
begin
if Parent.WindowState = wsMinimized
then Parent.WindowState := wsNormal
else Parent.WindowState := wsMinimized;
end;procedure TbsSkinStdButtonObject.DoClose;
begin
Parent.FForm.Close;
end;
但是改了一下,没有反应...
不知道你们有没有最到过这个问题.并是怎么解决的.谢谢!
begin
case Message.WParam of
SC_CLOSE: ShowMessage('CLOSE'); // 点击关闭按钮
SC_RESTORE: Showmessage('RESTORE');//点击恢复按扭
SC_MAXIMIZE:Showmessage('MAXIMIZE');//点击最大化按扭
SC_MINIMIZE:Showmessage('MINIMIZE');//点击最小化按扭
end;
没有加BusinessSkinForm时,是可以跑进WMSysCommand()函数的.
但是一加BusinessSkinForm..上面的函数就进不去了.同时.想隐藏visible := False; 也就没有办法了..
看了一下BusinessSkinForm..好象是在里面的
procedure TbsSkinStdButtonObject.DoMax;
begin
if Parent.WindowState = wsMaximized
then Parent.WindowState := wsNormal
else Parent.WindowState := wsMaximized;
end;procedure TbsSkinStdButtonObject.DoMin;
begin
if Parent.WindowState = wsMinimized
then Parent.WindowState := wsNormal
else Parent.WindowState := wsMinimized;
end;procedure TbsSkinStdButtonObject.DoClose;
begin
Parent.FForm.Close;
end;
但是改了一下,没有反应...
不知道你们有没有最到过这个问题.并是怎么解决的.谢谢!
我们后来看的是标题栏是后来又画上去的,所以不会响应WM_SYSCOMMAND的