Zustand eines Buttons erkennen

[FarAndBeyond]

Zitat:

Bei der KeyPress-Variante wird aber die Zwischenablage nicht berücksichtigt, d.h. damit bekommt man immer noch Grütze ins Edit.

Seit wann kann Grütze selbstständig irgendwo hingehen?
Außerdem kann man den einfachen Zugang ja blocken:

Delphi-Quellcode:

Procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; Var Handled: Boolean);
 Begin
  Handled:= True;
 End;

Procedure TForm1.Edit1KeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
 Begin
  If (ssShift In Shift) Then Key:= 0;
 End;

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
 Begin
  If Pos(Key,'1234567890'+#8#27#13) = 0 Then Key:= #0;
 End;

STRG+V und Shift+Einfg fällt jetzt flach und ebenso die rechte Maustaste...

Das sollte doch erstmal reichen, außerdem gibt es immernoch Try Except End.
Was bleibt wäre expliziter Code... gibt es sonst noch 'was???