Einstellungen im Editfenster

[STS301]

Hallo

kann man im Editfenster einstellen, dass man nur ein Zeichen eingeben darf und es nur in Blockbuchstaben geschrieben werden kann

danke im Voraus

[DeddyH]

Zur Länge schau Dir mal MaxLength an, aber was meinst Du mit Blockbuchstaben?

[STS301]

dass er nur Großbuchstaben ausgibt ="ABCDEFGHIJKLMNOPQRSTUVWXYZ"

[DeddyH]

Stell CharCase auf ecUpperCase.

[STS301]

gut danke

kann man eigentlich auch sagen, dass er die Einstellungen auf für mehrere Editfenster übernehmen soll??

[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;

[dominikkv]

Zitat von STS301:

gut danke

kann man eigentlich auch sagen, dass er die Einstellungen auf für mehrere Editfenster übernehmen soll??

Du kannst dein Edit markieren (anklicken), dann kopieren (STRG + C) und dann einfügen (STRG + V), dann hat das neue Edit alle Eigenschaften vom alten.

[quendolineDD]

Oder du markierst die entsprechenden Edit's in der Objekt-Hirarchie und verstellst dann im ObjektManager die Einstellungen, dann wird das für alle markierten Edit's entsprechend übernommen.

[STS301]

ja so würde es auch gehen, habe es mal bei einem Button gemacht und dann hat er mir die ganze Zeit Fehlermeldungen ausgegeben keine Ahnung warum

würde es auch mit For-Schleife gehen so z.b:

Delphi-Quellcode:

var x : integer
begin

for x:=1 to 3 do edit[x]:= edit[x].text:= 'Hallo'

end.

[DeddyH]

Zitat von STS301:

for x:=1 to 3 do edit[x]:= edit[x].text:= 'Hallo'

Was soll das denn bewirken (so es denn ginge)?