实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
; v/ ^* F! a) G! H{
% _! k9 z: D7 X! S! }6 F TRect m_FullScreenRect;
m_FullScreenRect.left = 0;
m_FullScreenRect.top = 0;
m_FullScreenRect.right = Screen->Width;
" D% Y! N( \1 I; l  m m_FullScreenRect.bottom = Screen->Height;
( D2 D& h6 Z+ }  t //进入全屏显示状态
9 J* P  Z/ u2 C% Q WINDOWPLACEMENT wndpl;
2 c$ b; ?2 K# \) v0 N$ S wndpl.length =sizeof(WINDOWPLACEMENT);
( N( _8 `- h9 `' l wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
9 C- r) V% {3 n" }0 | wndpl.rcNormalPosition=m_FullScreenRect;
6 ?& @( i6 r+ G& U" h/ j SetWindowPlacement(Handle,&wndpl);
}

书虫

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