Delphi程序如何做到全屏切换，象word,ie一样。(100分)

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #1

MFC中可以简单做到，Delphi?

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #2

不懂, 什么叫全屏切换?

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #3

是DELPHI环境？还是做出来的程序？

 

面

面条

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #4

@^@

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #5

做出来的程序，全屏切换，<br>Ie里按F11,word选视图，全屏显示。

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #6

form.BorderStyle := bsNone;<br>form.WindowState := wsMaximized;<br>是这个吗?

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #7

hehe, 应该是吧<br>太简单了.

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #8

哈哈，不是这么简单吧，MDI程序。<br>试一下吧，<br>form.BorderStyle := bsNone; 会把MDIChild关了。<br><br>

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #9

IE哪来的MDI?<br>word没有, 什么效果?<br>其实可以模拟呀, 调整窗口的大小与位置, 使边框和title, menu跑到屏幕外面去.<br>

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #10

不要title,不要menu不就全屏了？要的时候再拿回来呗

 

面

面条

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #11

全屏后的几个系统按钮可以自己做。<br>同意eyes的做法，控制窗口的大小和位置 setwindowspos?

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-06

• #12

刚发现一个控件,在http://home.online.tj.cn/~whf/<br>可以实现全屏切换,你可以去试一试.

 

W

weimingxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-06

• #13

form.BorderStyle := bsNone;<br>&nbsp; &nbsp;form.WindowState := wsMaximized;<br>全屏后的几个系统按钮可以自己做。

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #14

form.BorderStyle := bsNone;<br>form.WindowState := wsMaximized;<br>form.mainmenu.visible := false;<br><br>hehe

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-08

• #15

to CJ:<br>"form.mainmenu.visible := false;"<br><br>恕我孤陋寡闻TMainMenu有Visible属性吗？好像没有。<br><br><br>"<br>form.BorderStyle := bsNone;<br>form.WindowState := wsMaximized;<br>&nbsp;"<br><br>在MDI程序中会关掉 MDIChild ,不正常工作，不信试试。<br><br>

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-08

• #16

那就用 setwindowpos 代替maximize, 将边框和menu放到屏幕外面去.<br>delphi自己的maximize不就是这么做的嘛? 只是没做好, maximize之后<br>点title bar还能移动窗口.

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-09

• #17

"用 setwindowpos 代替maximize" &nbsp;<br><br>效果一样，<br>当MDI子窗口是打开状态，就会自动关掉，不是这样的。<br>

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-09

• #18

&nbsp;setwindowpos(handle, HWND_TOP, - 2, -24, 802, 642, SWP_SHOWWINDOW or SWP_NOZORDER);<br><br>我试过上述代码, 没有问题. 边框没了, titlebar没了, mdi子窗还在.

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-09

• #19

怪事，难到我的Delphi4有问题？<br><br>请eYes试验：<br><br>用new-&gt;Projets-&gt; MDIApplication 生成个MDI程序，<br>在主菜单里加一项"全屏"<br><br>Click事件：<br><br>MainForm.BorderStyle := bsNone;<br>setwindowpos(handle, HWND_TOP, - 2, -24, 802, 642, SWP_SHOWWINDOW or SWP_NOZORDER);<br><br><br>运行程序，打开一个MDIChild,点全屏则MDIChild自己关上了。<br><br>&nbsp; <br>

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-09

• #20

问题在这里：<br>"MainForm.BorderStyle := bsNone;"<br><br>但不要的话可以把窗拽回来。<br>