Dlaczego funkcja TEdit.OnChange jest uruchamiana po naciśnięciu klawisza Ctrl + A?

Question

Używam aplikacji Delphi XE7 VCL na Windows 7.

Zauważyłem, że zdarzenie TEdit.OnChange wyzwala gdy Ctrl + A (zaznacz wszystko) jest wciśnięty. Dlaczego?

Muszę niezawodnie wywołać zdarzenie OnChange tylko wtedy, gdy tekst w TEdit naprawdę się zmienia. Niestety nie jest dostępne zdarzenie OnBeforeChange, więc mogę porównać tekst przed zmianą i po niej.

Jak wdrożyć niezawodne wydarzenie OnChange dla TEdit?

Answer 1

Tak, to nie jest złe wdrożenie podstawa:

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

Ta wiadomość pochodzi nie biorąc pod uwagę, że „A”, który znajduje się przycisk, który jest wypalanie EN_CHANGE, obecnie przybywa wraz ze stanem ctrl prasowany.

Co można zrobić, to sprawdzić, czy Ctrl jest wciśnięty czy nie:

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; 

Aby uniknąć czytania stan całej planszy klucza, można zrobić to, co zostało zasugerowane przez Davida 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;