实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
, u" _; n/ N) v TRect m_FullScreenRect;
% T! w' j% k9 Z5 J# m8 f m_FullScreenRect.left = 0;
m_FullScreenRect.top = 0;
m_FullScreenRect.right = Screen->Width;
m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
6 h+ ~: L1 c7 r' Z/ g: Y WINDOWPLACEMENT wndpl;
wndpl.length =sizeof(WINDOWPLACEMENT);
' f% a  W, O9 e1 K wndpl.flags =0;
- y- z2 \3 f  Y% s0 P- H wndpl.showCmd =SW_SHOWNORMAL;
wndpl.rcNormalPosition=m_FullScreenRect;
+ x7 e: f8 R, u! l SetWindowPlacement(Handle,&wndpl);
}

书虫

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