实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect m_FullScreenRect;
$ g- Z0 n8 O+ }; n! K4 D7 C m_FullScreenRect.left = 0;
( D* L( ^* y  h8 w$ _; z m_FullScreenRect.top = 0;
! Z" {: n- l4 @ m_FullScreenRect.right = Screen->Width;
m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
WINDOWPLACEMENT wndpl;
wndpl.length =sizeof(WINDOWPLACEMENT);
+ z: \* Z. u$ P% h/ [ wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
/ {8 ]/ n- F) A- ^4 E wndpl.rcNormalPosition=m_FullScreenRect;
* P  }' e( {0 P0 q/ s' S/ [ SetWindowPlacement(Handle,&wndpl);
/ t8 q4 f2 x7 I; W6 U}

书虫

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