maskedit oder edit, wo nur 1 und 0 zugelassen sind

[APP]

Hallo,

Copy&Paste mit CTRL+C/V scheidet aus, da auch onKeyPress wirkt,
sodass nur mehr das Einfügen über das Kontextmenü mit der Maus
verhindert werden muß.

Variante 1:

Delphi-Quellcode:

PROCEDURE TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  VAR Handled: Boolean);
BEGIN
  // Verhindert, dass das Kontextmenü aufklappt
  // etwas brachial und unelegant :-)
  Handled := True;
END;

Variante 2:

Delphi-Quellcode:

PROCEDURE TForm1.Edit1Exit(Sender: TObject);
VAR
  i                                : Integer;
BEGIN
  // beim Verlassen des Controls auf Gültikeit prüfen...
  FOR i := 1 TO length(Edit1.Text) DO
    IF NOT (Edit1.Text[i] IN ['0'..'1']) THEN
      BEGIN
        Edit1.Text := '';
        Edit1.SetFocus;
        Exit;
      END
END;