实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
. e9 |$ n8 `9 ]4 C, j TRect m_FullScreenRect;
m_FullScreenRect.left = 0;
2 G6 j, O! v9 V& m/ o- K m_FullScreenRect.top = 0;
$ f; D2 z: h9 {* _3 o7 m% A m_FullScreenRect.right = Screen->Width;
. a* N. _* V1 [ m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
# O2 ]( d3 U. j! B) t8 m; B WINDOWPLACEMENT wndpl;
0 ?% F* x+ a  ^ wndpl.length =sizeof(WINDOWPLACEMENT);
! q7 l% g) M$ ]: R1 T wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
wndpl.rcNormalPosition=m_FullScreenRect;
. y0 X  q, Y4 V  D2 A/ \+ R SetWindowPlacement(Handle,&wndpl);
}

书虫

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