@Jelly : jo.
In der Praxis siehts so aus :
Delphi-Quellcode:
constructor TIntEdit.Create(AOwner: TComponent);
begin
inherited;
ZulZeichen := ['0'..'9',#8];
FAlignment := taRightJustify;
end;
procedure TIntEdit.KeyPress(var Key: Char);
begin
inherited KeyPress(Key);
if not (Key in ZulZeichen) then
key := #0;
end;
{ TRealEdit }
constructor TRealEdit.Create(AOwner: TComponent);
begin
inherited;
ZulZeichen := ZulZeichen + [DecimalSeparator];
end;
"ZulZeichen" steht ab TIntEdit zur Verfügung. Da ist nun aber wirklich nicht viel zu planen, geschweige denn, seine Zeit mit dem Entwurf irgenwelcher Diagramme zu verplempern. 8) Später hat man dann nämlich nicht nur seine Programme zu warten, sondern auch noch die Diagramme.
IMHO bringen solche Dinge nur in Ausnahmefällen eine Verbesserung, im Normalfall ist es eher ein Hindernis.