Einstellungen im Editfenster

[quendolineDD]

Klar, so geht das per Code.
Sucht sich alle Editfelder, welche nach dem Standard benannt sind

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
const
  Name = 'Edit';
begin
    for i := 1 to ComponentCount do begin
      if Components[i-1].ClassName = 'TEdit' then
         with TEdit(FindComponent(Name + IntToStr(i))) do
          begin
            MaxLength := 10;
            CharCase := ecUpperCase;
          end;
    end;
end;