SO hatte da noch ne kleine Pause gemacht da ich noch an einem anderen Projekt arbeite
Delphi-Quellcode:
procedure TForm2.BtnStartClick(Sender: TObject);
var
i: Integer;
begin
EditText.Visible := false;
BtnStart.Visible := false;
BtnClear.Visible := false;
SetLength(EditArray, i);
Wort := EditText.Text;
for i:= 1 to length(EditText.text) do
begin
EditArray[i]:= TEdit.Create(Self);
EditArray[i].Parent := Self;
EditArray[i].Left:= 16 + ((EditArray[i].Left + 32) * i);
EditArray[i].Top:= 380;
EditArray[i].Width:= 30;
EditArray[i].Font.Name := 'Comic Sans MS';
EditArray[i].Font.Size := 14;
EditArray[i].MaxLength := 1;
EditArray[i].Alignment := taCenter;
end;
end;
So erstelle ich meine Edits im Moment