Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   TextBox escribir automaticamente letra por letra? Ejemplo Dentro! (https://www.clubdelphi.com/foros/showthread.php?t=64192)

Gattaca 21-03-2009 02:47:14

TextBox escribir automaticamente letra por letra? Ejemplo Dentro!
 
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:



Algo así?

yoennis 21-03-2009 03:28:13

Lo siento tu imagen no se ve
 
Escribe bien claro lo que quieres hacer:confused:

coso 21-03-2009 17:41:32

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:

Código Delphi [-]
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;


La franja horaria es GMT +2. Ahora son las 21:05:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi