NumbersOnly TEdit Delphi 힌트 : 작동하지 않음

Question

저는 Windows Desktop을위한 프로그램을 만드는 Windows 10을 테마로 Delphi Seattle을 사용하고 있습니다.
활성 NumbersOnly 속성 인 경우 TEdit에서 단어를 입력하려고하면 표준 Windows 힌트가 표시됩니다.
테마없이 프로그램을 종료하면 힌트가 올바르게 표시되고 숫자 만 입력 할 수 있다는 메시지가 표시됩니다. 그러나 활성 테마라면 메시지를 읽을 수 없습니다.

아무도 내가 Vcl.StdCtrls.pas을보고 있었으므로이 메시지가 사용자에게 생성 된 시간을 찾을 수 없으므로이 위치를 변경할 수 있습니다.

올바른 힌트 :

잘못된 힌트 : 델파이 10.1 (베를린)에

Answer 1

이 문제는 RAD Studio 10.1 Berlin에서 수정되었습니다. 그러나 RAD Studio 버전을 업그레이드 할 수없는 경우 VCL Styles Utils 프로젝트에서이 문제를 해결해보십시오. 프로젝트에만 Vcl.Styles.Utils.ScreenTips 유닛을 추가해야합니다.

Answer 2

업데이트 - 내가 (10.0 내가 할 수있는이 동안을 재현 할 수있다 고정 것 같다 시애틀).

bugfix list for Berlin에는 VCL 스타일과 관련된 몇 가지 문제가 수정되어 표시됩니다.

Answer 3

이 문제를 해결하려면 the ES_NUMBER style 뒤에 오히려 쓸모없는 Microsoft 구현에 의존하지 말고 자신의 논리를 구현하십시오.

type 
    TEdit = class(VCL.StdCtrls.TEdit) 
    protected 
    FInsideChange: boolean; 
    function RemoveNonNumbers(const MyText: string): string; 
    procedure KeyPress(var Key: Char); override; 
    procedure Change; override; 
    end; 

    procedure TEdit.KeyPress(var Key: Char); 
    begin 
    if NumbersOnly then begin 
     if not(Key in ['0'..'9','-',#8,#9,#10,#13,#127]) then begin 
     Key:= #0; 
     //Put user feedback code here, e.g. 
     MessageBeep; 
     StatusBar.Text:= 'Only numbers allowed'; 
     end else StatusBar.Text:= ''; 
    end; 
    inherited KeyPress(Key); 
    end; 

    procedure TEdit.Change; override; 
    begin 
    if FInsideChange then exit; 
    FInsideChange:= true; 
    try 
     inherited Change; 
     Self.Text:= RemoveNonNumbers(Self.Text); 
    finally 
     FInsideChange:= false; 
    end; 
    end; 

    function TEdit.RemoveNonNumbers(const MyText: string): string; 
    var 
    i,a: integer; 
    NewLength: integer; 
    begin 
    NewLength:= Length(MyText); 
    SetLength(Result, NewLength); 
    a:= 1; 
    for i:= 1 to Length(MyText) do begin 
     if MyText[i] in ['0'..'9'] or ((i=1) and (MyText[i] = '-')) then begin 
     Result[a]:= MyText[i]; 
     Inc(a); 
     end else begin 
     Dec(NewLength); 
     end; 
    end; {for i} 
    SetLength(Result, NewLength); 
    end; 

텍스트를 붙여 넣을 때도 번호가 허용되지 않습니다.