|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: Einstellungen im Editfenster
31. Dez 2007, 14:18
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 3 do begin
with TEdit(FindComponent('Edit' + IntToStr(i))) do
begin
MaxLength := 10;
CharCase := ecUpperCase;
Text := 'Hallo';
end;
end;
end;
Ungetestet.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|