VFP 使用messagebox窗口时，调整位置 - 编程论坛

#2

mywisdom882021-10-28 12:39

自己做1个表单，代替MSSAGEBOX

#3

xuminxz2021-10-28 12:43

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

#4

mywisdom882021-10-28 12:47

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

#5

aroffice2021-10-28 13:32

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

#6

aroffice2021-10-28 13:33

回复 2楼 mywisdom88

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

#7

mywisdom882021-10-28 13:43

回复 6楼 aroffice

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

#8

xuminxz2021-10-28 18:22

用一个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编辑过]

#9

aroffice2021-10-28 21:38

回复 8楼 xuminxz

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

#10

xuminxz2021-10-28 22:13

回复 9楼 aroffice

在标签初始化时加入
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编辑过]