有谁知道如何设置Edit控件使其从右往左输入？

leiao1989613 · 发表于 2013-9-19 12:30:55

您需要登录才可以下载或查看，没有账号？立即注册

x

今天，学了小甲鱼老师的《零基础学习Delphi》视屏中鱼C计算器中Edit输入为从右往左。有谁知道如何设置Edit控件使其从右往左输入？

Janffer · 发表于 2013-9-19 21:53:16

delphi里设置不了需要代码实现你可以百度一下啊~~

Gin · 发表于 2013-9-19 22:24:50

用API可以实现，具体的我记不清楚了，你百度一下吧。

丿Clover灬夢 · 发表于 2013-9-21 10:24:34

SetWindowLong(edt1.Handle,GWL_STYLE,GetWindowLong(edt1.Handle,GWL_STYLE)+ES_RIGHT);
edt1.Refresh;

leiao1989613 · 发表于 2013-9-21 11:11:22

回复：丿Clover灬夢
SetWindowLong(edt1.Handle,GWL_STYLE,GetWindowLong(edt1.Handle,GWL_STYLE)+ES_RIGHT);
edt1.Refresh;

这样设置是可以，但是运行程序后，开始的时候Edit控件框中的光标还是在左边，怎么把光标也设置到最右端？

comeheres · 发表于 2013-9-21 11:16:44

leiao1989613 发表于 2013-9-21 11:11

登录/注册后可看大图

这样设置是可以，但是运行程序后，开始的时候Edit控件框中的光标还是在左边，怎么把光标也设置到最右端？

你的代码有问题吧，应该一开始就在右边的

丿Clover灬夢 · 发表于 2013-9-21 13:03:10

leiao1989613 发表于 2013-9-21 11:11

登录/注册后可看大图

这样设置是可以，但是运行程序后，开始的时候Edit控件框中的光标还是在左边，怎么把光标也设置到最右端？

在form创建的事件写

leiao1989613 · 发表于 2013-9-22 07:40:23

丿Clover灬夢
在form创建的事件写

现在可以了，我开始把语句写到Edit.Change里面去了。非常感谢！！！

账号		自动登录	找回密码
密码			立即注册