实现全屏显示的源码！

ilikenba

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect m_FullScreenRect;
4 p! k6 G& {5 B9 |- S$ ~ m_FullScreenRect.left = 0;
m_FullScreenRect.top = 0;
! v/ X9 P# ]6 b2 x m_FullScreenRect.right = Screen->Width;
m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
3 P3 `# d/ ^6 V# {- a6 X5 b WINDOWPLACEMENT wndpl;
( L, J  {# d5 l5 k wndpl.length =sizeof(WINDOWPLACEMENT);
9 B2 S) d* _' {( O9 l4 l wndpl.flags =0;
1 s% P& }# T% M1 u- }$ V4 P& I wndpl.showCmd =SW_SHOWNORMAL;
wndpl.rcNormalPosition=m_FullScreenRect;
SetWindowPlacement(Handle,&wndpl);
}

书虫

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