TextBox escribir automaticamente letra por letra? Ejemplo Dentro!

[Gattaca]

Hola a todos ahora vengo con otra duda. Ya que mi otro proyecto fue un exito gracias a este gran foro, os vengo con esta pequeña duda. Veran como puedo hacer que en un TextBox se escriban automaticamente letra por letra, por ejemplo:

http://img525.imageshack.us/img525/9929/22263ol0.gif

Algo así?

[yoennis]

Escribe bien claro lo que quieres hacer:confused:

[coso]

Te dejo aqui un ejemplo, para que cojas la idea. Despues lo modificas segun tus necesidades. Para hacerse mas correctamente, se tendria que usar un TTimer:


procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i,j : integer;
begin
s := 'Esto es tansolo un texto de prueba'#13'para mostrar como ir incluyendo'#13+
'carácteres en un TMemo';

Memo1.Lines.Clear;
for i := 0 to Length(s) do
begin
for j := 0 to 5000000 do Application.ProcessMessages;
Memo1.Lines.Text := Memo1.Lines.Text + s[i];
end;
end;