Ctrl + A basıldığında TEdit.OnChange neden tetikleniyor?

Question

Ben Ctrl + A (tümünü seç) basıldığında TEdit.OnChange olay tetiklediğini gözlemledik Windows 7

üzerinde Delphi XE7 VCL uygulaması çalıştırıyorum. Neden?

OnChange olayını yalnızca TEdit'daki metin gerçekten değiştiğinde güvenilir bir şekilde tetiklemem gerekiyor. Ne yazık ki, hiçbir OnBeforeChange olayı mevcut değil, böylece bir değişiklikten önce ve sonra metni karşılaştırabilirim.

TEdit için OnChange güvenilir bir olay nasıl uygulanır?

Answer 1

Evet, kötü bir taban uygulaması değil:

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

Bu mesaj EN_CHANGE tetiklendiğini düğmedir 'A', şu anda ctrl durumuyla birlikte gelir dikkate almayan geliyor bastırdı.

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; 

bütün anahtar kurulu durumunu okuma kaçınmak için, David Heffernan tarafından ne önerildi yapabilirsiniz: Ne yapabilirsiniz

Ctrl basılı olup olmadığını kontrol etmektir

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;