ilikenba 发表于 2004-4-28 22:15

实现全屏显示的源码！

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect m_FullScreenRect;
m_FullScreenRect.left = 0;
m_FullScreenRect.top = 0;
m_FullScreenRect.right = Screen->Width;
m_FullScreenRect.bottom = Screen->Height;
//进入全屏显示状态
WINDOWPLACEMENT wndpl;
wndpl.length =sizeof(WINDOWPLACEMENT);
wndpl.flags =0;
wndpl.showCmd =SW_SHOWNORMAL;
wndpl.rcNormalPosition=m_FullScreenRect;
SetWindowPlacement(Handle,&wndpl);
}

书虫 发表于 2004-5-7 22:18

<P>很棒哟！</P>
页: [1]
查看完整版本: 实现全屏显示的源码！