实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
. }5 H; x' C- j{
TRect m_FullScreenRect;
1 u% Y% _1 J0 I& @2 ` m_FullScreenRect.left = 0;
9 n8 {- d- D. a& ~# U' P  o2 l m_FullScreenRect.top = 0;
5 H0 _' {5 }: Z% ?$ B, I m_FullScreenRect.right = Screen->Width;
& c  E& i1 W" L6 V  {8 U/ N m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
WINDOWPLACEMENT wndpl;
; W; q8 }( \' O9 I$ F; F; H wndpl.length =sizeof(WINDOWPLACEMENT);
wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
- ~6 m/ O3 V) { wndpl.rcNormalPosition=m_FullScreenRect;
) L9 T; z$ M6 }. B9 s8 D! z; @. n+ M SetWindowPlacement(Handle,&wndpl);
}

书虫

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