怎么使主窗口最小化
如何使主窗口最小化
我在主窗口中执行
form2.showmodal;
然后要求用户点击form2的最小化按钮,使得主窗口也最小化?
小弟只有这么多分了
------解决方案--------------------
type
TLogin = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
procedure OnMiniMize(var msg:TMessage);message WM_SYSCOMMAND;
end;
if LOWORD(msg.WParam)=SC_MINIMIZE then
PostMessage(Main.Handle,WM_SYSCOMMAND,Longint(SC_MINIMIZE) ,0);
inherited;
我在主窗口中执行
form2.showmodal;
然后要求用户点击form2的最小化按钮,使得主窗口也最小化?
小弟只有这么多分了
------解决方案--------------------
type
TLogin = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
procedure OnMiniMize(var msg:TMessage);message WM_SYSCOMMAND;
end;
if LOWORD(msg.WParam)=SC_MINIMIZE then
PostMessage(Main.Handle,WM_SYSCOMMAND,Longint(SC_MINIMIZE) ,0);
inherited;