Komponentenentwicklung

[sakura]

Das ist jetzt zwar nicht wirklich das, was Du wolltest, aber ein Anfang. (Copy&Paste und ähnliches fängt diese Lösung nicht ab). Aber immerhin eine Komponente...

Code:

unit AdvancedEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TAdvancedEdit = class(TEdit)
  private
    { Private declarations }
    procedure WMChar(var Msg: TWMChar); message WM_CHAR;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('gate(n)etwork', [TAdvancedEdit]);
end;

{ TAdvancedEdit }

procedure TAdvancedEdit.WMChar(var Msg: TWMChar);
begin
  if
    ((Msg.CharCode >= $30) and (Msg.CharCode <= $39))
  then
    inherited
  else
    Msg.Result := -1;
end;

end.