实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
/ x$ s$ E6 m8 s, o% ` TRect m_FullScreenRect;
) i5 h7 }+ V3 v& i3 R6 V% t m_FullScreenRect.left = 0;
3 I3 H4 T9 ?: d9 B. ]+ r/ F: d m_FullScreenRect.top = 0;
m_FullScreenRect.right = Screen->Width;
2 U. P: O) \! ^" Z- F5 c) z m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
; U! F" J% L2 Y- L- S9 l" S8 N WINDOWPLACEMENT wndpl;
wndpl.length =sizeof(WINDOWPLACEMENT);
; z  U+ ?7 p& F wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
$ {7 z0 [+ o% X# ^0 ~2 j" x wndpl.rcNormalPosition=m_FullScreenRect;
SetWindowPlacement(Handle,&wndpl);
' A% W7 y: v% k+ T& E" ^  i}

书虫

<>很棒哟！</P>[em05]