在使用VFP messagebox 函数显示对话框时，在是屏幕的中间，有没有办法在出现了这个窗口时，通过移动这个窗口的位置，让它位于程序窗口的中间。

自己做1个表单，代替MSSAGEBOX

正常手段是不能。为什么要这么做？

他估计是，正在运行的表单不在中间，
MESSAGEBOX()是出现在当前窗口中间的

就这个意思，要在屏幕上显示多个窗口，把表单调整到了个角上，MESSAGEBOX()出现在了屏幕中间，会被其他窗口挡住不方便。

自己做的话，如何显示内置图标呢？

用MESSAGEBOX()调试一下，把他的图标复制出来，自己做图标
用模式表单

用一个PRG程序代替messagebox(),比如称为 mssgbx()关键代码

LPARAMETERS t1,t2,t3
PRIVATE  wdth,hght,tp,lft,mw,mh,rtrn
WITH _SCREEN.ActiveForm
wdth=.width
hght=.height
tp=.top
lft=.left
ENDWITH
mw=178
mh=142
tp=tp+hght/2-mh/2
lft=lft+wdth/2-mw/2

DO form mssgbx WITH mw,mh,tp,lft,t1,t2,t3  to rtrn 
return rtrn

表单主要属性
.borderstyle=2
.TitleBar=0
.WindowType=1
根据参数，确定命令按钮的个数，Caption值,在表单上半部分放上容器（也可用EditBox，参数自己调整）根据字符数确定宽度（messagebox,60个字符换行），根据字符行数确定高度。这些仔细调整就可以了。
根据选择按键确定返回值。
还可以增加参数进行其它设置。

[此贴子已经被作者于2021-10-28 18:33编辑过]

就是准备自己写一个messagebox 函数，现在不知道如何去判断里面的标签大小，有没有好的办法，确保能够显示出来标签文字。

在标签初始化时加入
thisform.ScaleMode= 3
this.Width=LEN(this.Caption )/2*this.FontSize*1.35

也可以用EditBox
thisform.ScaleMode= 3
this.Width=准备放的字符数/2*this.FontSize*1.4
this.FontSize默认9

[此贴子已经被作者于2021-10-28 22:20编辑过]