实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
! v" c% B# z) {{
TRect m_FullScreenRect;
, ]% ~* `0 s! X9 e m_FullScreenRect.left = 0;
: ~5 K1 W& N; t m_FullScreenRect.top = 0;
  \7 p/ ?+ I: r$ J. y# x* V m_FullScreenRect.right = Screen->Width;
! z7 n) _( j* { m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
WINDOWPLACEMENT wndpl;
) t; y% I# i8 y2 H wndpl.length =sizeof(WINDOWPLACEMENT);
  ~5 x* d; b: v; s- j" X1 H wndpl.flags =0;
2 u9 B, m( @6 E wndpl.showCmd =SW_SHOWNORMAL;
2 _2 s7 \# [/ i' H. a wndpl.rcNormalPosition=m_FullScreenRect;
SetWindowPlacement(Handle,&wndpl);
}

书虫

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