TMSWEB Core 组件居中显示

本文整理自网络，侵删。

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

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

 

相关阅读 >>

在Delphi 7中使用加密的sqlite

Delphi idhttp用法详解

Delphi编程实现图像的淡入浅出

Delphi 如何在webservice中获取客户端的ip地址

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi-adoquery查询、插入、删除、修改

Delphi 移位函数

Delphi getsessionusername通过会话id得到会话名称

Delphi fmx播放m4a声音文件

图解qq群如何快速找到自己想要的Delphi资源

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

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