Ctrl + Aを押したときにTEdit.OnChangeがトリガーされるのはなぜですか？

Question

私ははCtrl + Aは（すべて選択）を押すとTEdit.OnChangeイベントがトリガされていることを観察しているのWindows 7上

をデルファイXE7 VCLアプリケーションを実行しています。何故ですか？

TEditのテキストが実際に変更された場合にのみ、OnChangeイベントを確実にトリガーする必要があります。残念ながら、OnBeforeChangeイベントは利用できないため、変更前と変更後のテキストを比較できます。

TEditの信頼できるOnChangeイベントを実装するにはどうすればよいですか？

Answer 1

はい、それは悪いベースの実装ではありません。

procedure TCustomEdit.CNCommand(var Message: TWMCommand); 
begin 
    if (Message.NotifyCode = EN_CHANGE) and not FCreating then Change; 
end; 

このメッセージはEN_CHANGEを発射されるボタンである「A」は、現在、CTRLの状態と一緒に来ることを考慮して服用していないています押された

procedure TForm44.edt1Change(Sender: TObject); 

    function IsCtrlPressed: Boolean; 
    var 
    State: TKeyboardState; 
    begin 
    GetKeyboardState(State); 
    Result := ((State[VK_CONTROL] and 128) <> 0); 
    end; 
begin 
    if IsCtrlPresed then 
    Exit; 

    Caption := 'Ctrl is not pressed'; 
end; 

全体のキーボードの状態を読んで回避するには、デビッド・Heffernanのによって提案されたものを行うことができます：

procedure TForm44.edt1Change(Sender: TObject); 

    function IsCtrlPresed: Boolean; 
    begin 
    Result := GetKeyState(VK_CONTROL) < 0; 
    end; 
begin 
    if IsCtrlPresed then 
    Exit; 

    Caption := 'Ctrl is not pressed'; 
end; 

あなたは何ができるか

は、Ctrlキーを押しされているかどうか確認しています