NumbersOnly TEdit Delphiヒントが動作しない

Question

私は、Windowsデスクトップのためのプログラムを作成するWindows 10のテーマでDelphi Seattleを使用しています。
アクティブなNumbersOnlyプロパティの場合、単語を入力しようとすると、標準のWindowsヒントが表示されます。TEdit
テーマなしでプログラムを終了すると、ヒントが正しく表示され、番号を入力できるだけのメッセージが表示されます。しかし、アクティブなテーマの場合、メッセージは読めません。

誰でも私が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の背後にある無駄なマイクロソフトの実装に頼るのではなく、独自のロジックを実装します。

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; 

ここで、数字以外は受け入れられません。テキストを貼り付けるときでも、数字は受け入れられません。