TMSWEB Core 组件居中显示

本文整理自网络，侵删。

 
var
  jsr: TJSDOMRect;
begin
  jsr := document.body.getBoundingClientRect;

  WebMemo1.Left := Round((jsr.right - jsr.left - WebMemo1.Width) / 2);

 

相关阅读 >>

Delphi sender 的用法举例

Delphi 遍例一个外部程序中所有的类名

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

Delphi里实现获取资源管理器路径以及ie打开网址列表

Delphi playsound(); 停止播放

Delphi setcursorpos函数在窗口上定位鼠标坐标

Delphi richedit 的scrollbar自动向下滚动

Delphi 在桌面中嵌入窗体

Delphi 的webbrowser如何全选并复制浏览器上的文字

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » TMSWEB Core 组件居中显示