实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
& Z( e4 W/ k# ?& u9 n  \, E- f- m, { TRect m_FullScreenRect;
m_FullScreenRect.left = 0;
) u- S) E0 l& z9 f m_FullScreenRect.top = 0;
m_FullScreenRect.right = Screen->Width;
- X" I+ h' Z. z  k* V m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
4 w! R/ v2 ?: q) s2 @- r WINDOWPLACEMENT wndpl;
6 Q) o+ m- A9 ^! }5 Q, g2 w* R wndpl.length =sizeof(WINDOWPLACEMENT);
wndpl.flags =0;
. @6 I8 \, v& _2 J. _3 K8 f wndpl.showCmd =SW_SHOWNORMAL;
wndpl.rcNormalPosition=m_FullScreenRect;
SetWindowPlacement(Handle,&wndpl);
}

书虫

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