Delphi2007中Combox控件中文乱码问题解决办法

方法1.把combobox的autocomplete属性设为false可以解决乱码问题。
方法2.乱码是因为你使用了TXPMan控件，且在NT系统中使用。
在KeyPress事件中执行ComboBox_XPMan_KeyPress可解决北问题。

1. function IsNTSystem:Boolean;
2. var
3. info:OSVERSIONINFO;
4. begin
5. info.dwOSVersionInfoSize:=sizeof(info);
6. GetVersionEx(info);
7. Result:=info.dwPlatformId=VER_PLATFORM_WIN32_NT;
8. end;
10. procedure ComboBox_XPMan_KeyPress(Sender:TObject;var Key: Char);
11. function HasSelectedText(CB_HWND:HWND; var StartPos, EndPos: DWORD): Boolean;
12. begin
13. SendMessage(CB_HWND, CB_GETEDITSEL, Integer(@StartPos),
14. Integer(@EndPos));
15. Result := EndPos > StartPos;
16. end;
17. var
18. StartPos, EndPos: DWORD;
19. OldText, SaveText: WideString; //关键在此，中间字符串要设为宽字符串型
20. LastByte: Integer;
21. TheCB:TComboBox;
22. CBHandle:HWND;
23. begin
24. if not IsNTSystem then Exit; //非NT系统则退出
26. TheCB:=TComboBox(Sender);
27. CBHandle:=TheCB.Handle;
29. if not TheCB.AutoComplete then exit;
31. if ord(Key) = VK_BACK then
32. begin
33. SaveText := TheCB.Text;
34. if HasSelectedText(CBHandle, StartPos, EndPos) then
35. begin
36. SendMessage(CBHandle,CB_GETEDITSEL,Integer(@StartPos),Integer(@EndPos));
37. Delete(SaveText, StartPos + 1, EndPos - StartPos);
38. SendMessage(CBHandle, CB_SETCURSEL, -1, 0);
39. TheCB.Text := SaveText;
40. SendMessage(CBHandle,CB_SETEDITSEL,0,MakeLParam(StartPos,StartPos));
41. Key := #0;
42. end
43. else if(TheCB.Style in [csDropDown,csSimple]) and (Length(SaveText)>0) then
44. begin
45. LastByte := StartPos;
46. OldText := Copy(SaveText, 1, LastByte - 1);
47. SendMessage(CBHandle, CB_SETCURSEL, -1, 0);
48. TheCB.Text := OldText + Copy(SaveText, EndPos + 1, MaxInt);
49. SendMessage(CBHandle, CB_SETEDITSEL, 0, MakeLParam(LastByte - 1,
50. LastByte - 1));
51. Key := #0;
52. end;
53. end;
54. end;