Message abfangen und nicht weiter geben

[Sunlight7]

Ich weiß jetzt grad nicht, wann da GetMessageExtraInfo den Wert 200 liefert, aber ich habs mit keybd_event simuliert und da funkt dann folgende Zeilen:

Delphi-Quellcode:

...
private
  IgnoreMe:Boolean;
...

procedure TEdit.WndProc(var Message:TMessage);
begin
   Case Message.Msg of
      WM_CHAR: If IgnoreMe then begin
                  IgnoreMe:=False;
                  Exit;
               end;
      WM_KEYDOWN: If GetMessageExtraInfo=200 then IgnoreMe:=True;
   end;

   inherited WndProc(Message);
end;