XE2下如何移动无边框窗体呢

2012-04-20

XE2下怎么移动无边框窗体呢？以前的不能用了，没有Perform，用的FireMonkey，不用VclDelphi(Pascal) codeif (s

XE2下怎么移动无边框窗体呢？
以前的不能用了，没有Perform，用的FireMonkey，不用Vcl

Delphi(Pascal) code

if (ssLeft in Shift) then  begin    ReleaseCapture;    Perform(WM_SYSCOMMAND, $F012, 0);  end;

[解决办法]
试试movewindow函数。
[解决办法]

探讨

引用:

试试movewindow函数。

现在Form.Handle 已经不是窗口的句柄了，涉及到消息的操作都杯具了

[解决办法]
帮顶一下. 我也研究研究
[解决办法]
窗口还是有句柄的

Delphi(Pascal) code

use WinAPI.windowsprocedure TForm1.FormCreate(Sender: TObject);var h : Thandle;begin  h := Findwindow('FMTForm1',nil);end;
[解决办法]
我想 新的框架偏向 娱乐 与 图形 多一些,  这种可能用不着.

而且这种是用在  IOS 上面的, 不可能搞个 句柄 属性出来的.


如果要搞WINDOWS下面的软件还是得主VCL吧.





[解决办法]
FireMonkey里面应该和VGScene一样的
要拖动允许移动的区域内的所有的控件的histest设置为false 
试下吧
[解决办法]
buhuibangding
[解决办法]
哈哈，firemonkey去掉边框后自己做边框上去，style换成IOS

真的很好看啊
[解决办法]
帮顶学习中

热点排行

.NET

XE2下如何移动无边框窗体呢