Delphi中InputBox的OK和Cancel怎么改成中文?

caochen 2002-03-27 04:44:18

马上给分

...全文

715 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

Nizvoo 2002-03-28

打赏
举报

回复

consts.pas文件是关于所有常量的定义
graphics.pas可以改掉那个丑人的字体,在win中文版下
改好后在控制台下用
dcc32 consts.pas***编译吧,
再把consts.dcu & graphics.dcu拷入lib目录覆盖以前的东西吧.
另外如果还不行,叫我发给你吧,我这里汉化过的,,,,

nne998 2002-03-28

打赏
举报

回复

自己做一个啦、、、、、、、、、

nylp 2002-03-27

打赏
举报

回复

先声明一个全局变量，然后自己做一个多好呀！！！！

blucecat 2002-03-27

打赏
举报

回复

改consts.pas中的源代码
SMsgDlgOK = 'OK';
SMsgDlgCancel = 'Cancel';
想改成什么就改成什么

simonvc 2002-03-27

打赏
举报

回复

我发个汉化版的Delphi给你, 要不要?
E_mail: ??
My: fh_simon@163.com

武稀松 2002-03-27

打赏
举报

回复

不行,除非拦截API函数.我看你还是自己做一吧,多简单

InputBox函数在Delphi中的用法源码示例

对InputBoxSetPasswordChar操作：　　procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage); 　　var 　　 hInputForm, hEdit: HWND; 　　begin 　　 hInputForm := Screen.Forms[0].Handle; 　　 if (hInputForm 0) then 　　 begin 　　 hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil); 　　 SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0); 　　 end; 　　end; 　　　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 InputString: string; 　　begin 　　 PostMessage(Handle, InputBoxMessage, 0, 0); 　　 InputString := InputBox('密码', '请输入相关密码：', ''); 　　 Edit1.Text := InputString; 　　end;

c# inputbox 密码框 c# inputbox 密码框

c#版的inputbox，学过vb的人很熟悉inputbox，但在c#没有了这个东西，只能自己写个了。

在.NET Framework中并没有类似VB中的InputBox函数,下面用C#编写一个类实现了类似的InputBox函数的功能

830

社区成员

53,573

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章