1

我有一个包含多种表格的项目。我在所有表单上都使用布局。

当我在它们之间导航时，每个表单都有基本相同的代码（见下文）。

Application.GotoForm('frmInventory', feFromRight);

一切都很好，直到我改变方向（例如从配置文件到横向）。然后布局搞砸了。

参见screenshot1 与screenshot2。

示例代码：

procedure TfrmMenu.frmMenuDeactivate(Sender: TObject);
begin
 fLayout:= nil;
end;


procedure TfrmMenu.frmMenuActivate(Sender: TObject);
begin
 fLayout:= Layout.Client([Layout.Top(fHeader),
                           Layout.Bottom(fFooter),
                           Layout.Client(fList)]);
end;


procedure TfrmMenu.Resize;
begin
  inherited;
   if assigned(FLayout) then
   begin
    fLayout.Resize(self)
   end;
end;

那是对的！为什么不是。我错过了什么？你如何捕捉方向变化？

- - - 更新 - - -

在这个网站上搜索，我看到了这篇文章：

http://www.thedelphigeek.com/2012/02/detecting-device-movement.html

然后我得到了这个stackoverflow的答案：

在 Android 中通过 Javascript 访问加速度计？

 if (window.DeviceMotionEvent == undefined) {
        //No accelerometer is present. Use buttons. 
        alert("no accelerometer");
    }
    else {
        alert("accelerometer found");
        window.addEventListener("devicemotion", accelerometerUpdate, true);
    }

在短信中，这似乎是这样做的：

function window: variant; external 'window' property;

procedure TfrmItem.InitializeObject;
begin
  inherited;
  {$I 'Item:impl'}
  window.addEventListener('devicemotion', @Resize, false);
  .
  .
  .
end;

procedure TfrmItem.Resize;
begin
  inherited;
  if assigned(fLayout) then
  begin
    fLayout.Resize(self);
    ResizeControls;
  end;
end;
4

1 回答 1

1

在这个网站上搜索，我看到了这篇文章：

http://www.thedelphigeek.com/2012/02/detecting-device-movement.html

然后我得到了这个stackoverflow的答案：

在 Android 中通过 Javascript 访问加速度计？

 if (window.DeviceMotionEvent == undefined) {
        //No accelerometer is present. Use buttons. 
        alert("no accelerometer");
    }
    else {
        alert("accelerometer found");
        window.addEventListener("devicemotion", accelerometerUpdate, true);
    }

在短信中，这似乎是这样做的：

function window: variant; external 'window' property;

procedure TfrmItem.InitializeObject;
begin
  inherited;
  {$I 'Item:impl'}
  window.addEventListener('devicemotion', @Resize, false);
  .
  .
  .
end;

procedure TfrmItem.Resize;
begin
  inherited;
  if assigned(fLayout) then
  begin
    fLayout.Resize(self);
    ResizeControls;
  end;
end;
于 2016-12-29T00:31:58.507 回答