Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 7454|回复: 6

messagebox显示为乱码

[复制链接]

该用户从未签到

发表于 2009-3-12 17:42:24 | 显示全部楼层 |阅读模式
为啥showmessage显示汉字正常,而messagebox显示为乱码?wince5.0操作系统。在各种输下控件下也都显示正常。请教 一下各位达人。
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2009-3-12 17:42:40 | 显示全部楼层
编码咋转换呢?
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2009-3-12 17:43:10 | 显示全部楼层
唯独messagebox下是乱码。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2009-3-12 19:02:54 | 显示全部楼层
此为MessageBox的方法:
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType : Cardinal): integer;
begin
  Result:= WidgetSet.MessageBox(hWnd, lpText, lpCaption, uType);
end;   

以下为showmessage的方法:
procedure ShowMessage(const aMsg: string);
begin
  NotifyUser(aMsg, idDialogBase);
end;     
procedure NotifyUser(const DialogMessage : String; DialogType : longint);
begin
  PromptUser(DialogMessage, DialogType, [idButtonOK], 0, -1);
end;
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
  ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
begin
  Result := WidgetSet.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end;
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2009-6-24 21:43:10 | 显示全部楼层
@zenheart:
用 MessageBoxW() 试试。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-5-21 15:52:31 | 显示全部楼层
MessageBoxW() 不行,猫工的MessageBox的方法也不行~我的LAZ0.9.28.2+224的ARM
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-7-9 19:28:53 | 显示全部楼层
用Applcation.messagebox 就可以正常了
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-6-23 23:31 , Processed in 0.098627 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表