tắt tự động thay đổi bố trí bàn phím trong DbGrids.pas trong VCL

Question

Tôi sử dụng ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); để tải Bố cục bàn phím Ba Tư bằng Delphi XE2, Nhưng đôi khi tôi nhấp vào TextBox hoặc DbGrid điều khiển bàn phím tự động được thay đổi sang bố cục tiếng Anh.

Làm cách nào để tắt tự động thay đổi bố cục bàn phím?

Answer 1

Chúng tôi có cùng vấn đề. Lỗi này xuất hiện sau khi nâng cấp từ D2006 lên D2010.

Issue là trong DBGrids.pas:

procedure TCustomDBGrid.WMKillFocus(var Message: TMessage); 
begin 
    ImeName := Screen.DefaultIme; 
    ImeMode := imDontCare; 
    inherited; 
    if not ((InplaceEditor <> nil) and 
    (HWND(Message.WParam) = InplaceEditor.Handle)) then 
    ActivateKeyboardLayout(Screen.DefaultKbLayout, KLF_ACTIVATE); 
end; 

Tôi không có ý tưởng tại sao Borland/Embarcadero thêm "nếu khối" sau khi được thừa hưởng. Thay đổi nguyên nhân chuyển bố cục bàn phím về mặc định. Chúng tôi đã phải sao chép DBGrids cho các dự án của chúng tôi và loại bỏ "nếu khối".