"MaskEdit" selbst gemacht

[Dax]

Du brauchst kein neues MaskEdit, du modifizierst dir ein normales. Dazu musst du nur ein OnKeyPress-Event einbauen:

Delphi-Quellcode:

var 
  bCount, aCount: Integer; // Die Zahl deiner Vor-/Nachkommastellen
  Old: String;

procedure TForm1.MaskEdit1Press(Sender: TObject; var Key: Char);
var i: Integer; Temp: String;
begin
  if not (Key in ['0'..'9', ',']) then
    Key := #0
  else
  begin
    i := Pos(',', MaskEdit1.Caption);
    if i = 0 then i := Length(MaskEdit1.Caption);
    if i < Pos(',', Old) then
    begin
      if i > aCount then Key := #0;
    end
    else
    begin
      if Length(MaskEdit1.Caption)-i > bCount then Key := #0;
    end;
  end;
  Old := MaskEdit1.Caption;
end;

So müsste es gehen, aber ich garantiere nicht für die Funktionalität des COdes, ich habe es nicht getestet.