vgscene窗口不能移动

Question

本帖最后由 qq752923276 于 2013-12-07 14:48:43 编辑

Answer 1

用vgscene的很少见啊，撸过一顶
在用xe2+的人用firemonkey的应该知道

Answer 2

直接用xe2吧，xe2开始加入的firemonkey就是vgscene，vgscene几年前被delphi公司收购了，改名叫firenmeonky了，直接内置delphi xe2及更高版本中了

Answer 3

实际就是放个任意控件上去，在该控件的mousedown中处理移动
procedure TForm1.xx控件MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  PerForm(WM_SYSCOMMAND, $F012, 0);
end;当然hittest必须false

Answer 4

从新写了个代码带exe，你看看是不是要的效果
http://pan.baidu.com/s/16CocS// 注意 HitTest 要为 Truetype
  TForm1 = class(TForm)
    vgscn1: TvgScene;
    vgbckgrndRoot1: TvgBackground;
procedure TForm1.vgbckgrndRoot1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  ReleaseCapture;
  PerForm(WM_SYSCOMMAND, $F012, 0);
end;

Answer 5

是的 把Root1的HintTest设置为true时，才能触发MouseDown 然后在其中模拟点击标题栏就行了但是vgScene自带的demo好像只设置了HintTest就行，不需要重载MouseDown