TMSWEB Core 组件居中显示

本文整理自网络，侵删。

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

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

 

相关阅读 >>

Delphi 用文件流读取文本文件字符串的方法

Delphi win10系统通知 notificationcenter1 基本用法

Delphi中设置系统时间方法

Delphi过滤一段字符里面的html代码的函数

Delphi 改变位图图片大小

Delphi 匹配中文的正则表达式

Delphi 程序动态改变皮肤

Delphi edit只允许输入数字和小数点

Delphi实现暴力瞬间关机

Delphi 屏幕截图完美解决方案

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

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