Delphi程序慎用XPManifest

最新推荐文章于 2019-01-08 00:44:30 发布

日总是我哥

最新推荐文章于 2019-01-08 00:44:30 发布

阅读量5.8k

点赞数

分类专栏：基础类文章标签： delphi integer autocomplete delete 测试 string

本文链接：https://blog.csdn.net/CoolSlob/article/details/654163

版权

基础类专栏收录该内容

9 篇文章 0 订阅

订阅专栏

　　Delphi开发程序使用XPManifest控件，将导致在删除（使用Backspace健）ComboBox内容时出现乱码。经跟踪发现，在执行以下过程的HasSelectedText函数部分（附文章结尾），通过SendMessage发送CB_GETEDITSEL消息返回的StartPos、EndPos值发生错误。

问题的重现：
1、新建一工具，在窗口上分别放置一个XPManifest和一个ComboBox
2、在ComboBox的Items值随意添加测试值，如：
测试项目1
测试项目2
测试项目3
3、编译运行程序
4、在ComboBox中任意选择一行
5、按Backspace删除内容
* 如果Items的值中不出现中文字母则完全正常.

问题的解决：删除XPManifest控件，同时也要删除uses 的XPMan单元。

测试环境：
　　Windows 2003 Ent SP1, Delphi 7.1

附出错代码：

procedure TCustomComboBox.KeyPress(var Key: Char);

function HasSelectedText(var StartPos, EndPos: DWORD): Boolean;
begin
SendMessage(Handle, CB_GETEDITSEL, Integer(@StartPos), Integer(@EndPos));
Result := EndPos > StartPos;
end;

procedure DeleteSelectedText;
var
    StartPos, EndPos: DWORD;
    OldText: String;
begin
    OldText := Text;
    SendMessage(Handle, CB_GETEDITSEL, Integer(@StartPos), Integer(@EndPos));
    Delete(OldText, StartPos + 1, EndPos - StartPos);
    SendMessage(Handle, CB_SETCURSEL, -1, 0);
    Text := OldText;
    SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(StartPos, StartPos));
end;

var
StartPos: DWORD;
EndPos: DWORD;
OldText: String;
SaveText: String;
Msg : TMSG;
LastByte: Integer;
begin
inherited KeyPress(Key);
if not AutoComplete then exit;
if Style in [csDropDown, csSimple] then
    FFilter := Text
else
begin
   if GetTickCount - FLastTime >= 500 then
      FFilter := '';
    FLastTime := GetTickCount;
end;
case Ord(Key) of
    VK_ESCAPE: exit;
    VK_TAB:
      if FAutoDropDown and DroppedDown then
        DroppedDown := False;
    VK_BACK:
      begin
        if HasSelectedText(StartPos, EndPos) then
          DeleteSelectedText
        else
          if (Style in [csDropDown, csSimple]) and (Length(Text) > 0) then
          begin
            SaveText := Text;
            LastByte := StartPos;
            while ByteType(SaveText, LastByte) = mbTrailByte do Dec(LastByte);
            OldText := Copy(SaveText, 1, LastByte - 1);
            SendMessage(Handle, CB_SETCURSEL, -1, 0);
            Text := OldText + Copy(SaveText, EndPos + 1, MaxInt);
            SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(LastByte - 1, LastByte - 1));
            FFilter := Text;
          end
          else
          begin
            while ByteType(FFilter, Length(FFilter)) = mbTrailByte do
              Delete(FFilter, Length(FFilter), 1);
            Delete(FFilter, Length(FFilter), 1);
          end;
        Key := #0;
        Change;
      end;
else // case
    if FAutoDropDown and not DroppedDown then
      DroppedDown := True;
    if HasSelectedText(StartPos, EndPos) then
      SaveText := Copy(FFilter, 1, StartPos) + Key
    else
      SaveText := FFilter + Key;

    if Key in LeadBytes then
    begin
      if PeekMessage(Msg, Handle, 0, 0, PM_NOREMOVE) and (Msg.Message = WM_CHAR) then
      begin
        if SelectItem(SaveText + Char(Msg.wParam)) then
        begin
          PeekMessage(Msg, Handle, 0, 0, PM_REMOVE);
          Key := #0
        end;
      end;
    end
    else
      if SelectItem(SaveText) then
        Key := #0
end; // case
end;