用一个API函数,ShowWindow(),有一个参数,就是显示的方式
设置WindowState属性:
Self.WindowState := wsNormal;
if frm.WindowState = wsMinimized then
begin
SendMessage(frm.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
Application.ProcessMessages;
frm.WindowState := wsNormal;
end;
frm.BringToFront;