TEDEEdit - Edit zur Eingabe von String, Integer oder Float

[andreash]

Ein Alignment wäre doch auch nett und ist einfach umszusetzen. Ich hoffe, es ist nicht zu vermessen hier eine mögliche Lösung zu posten.

Delphi-Quellcode:

procedure TEDEEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of Cardinal=(ES_LEFT,ES_RIGHT,ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style:=Params.Style or Alignments[FAlignment];
end;