Memo Text einblenden "Schreibmaschienen Effekt"

[Knotti2005]

Hallo Leute wie kann ich in einem Memo Feld einen Text mit Schreibmaschienen Effekt einblenden lassen. Sodass nach und nach der Buchstabe erscheint...

Man kennt diesen Effekt z.b. wer ne DBox mit Neutrino (linux) hat erscheint dies ...

[igel457]

wie wärs mit:

Delphi-Quellcode:

procedure Effect(source:TStringlist;var output:TMemo);
var i,j:integer;
begin
  for i := 0 to source.count-1 do
  begin
    for j := 1 to length(source[i]) do
    begin
      output.text := output.text+source[i][j];
      output.repaint;
      sleep(50);
    end;
  end;
end;

[PierreB]

Wobei dank Sleep natürlich das gesamte Programm einfriert, nur so nebenbei als Hinweis. :-)

[ManuMF]

Zitat:

Zitat von PierreB

Wobei dank Sleep natürlich das gesamte Programm einfriert, nur so nebenbei als Hinweis. :-)

also besser Delay ;-)

Gruß,
ManuMF

[Knotti2005]

Also Delay oder wie gibt es irgentwo noch mehr effekte zum einblenden?

[turboPASCAL]

Zitat:

Zitat von Knotti2005

Also Delay oder wie gibt es irgentwo noch mehr effekte zum einblenden?

:wiejetzt: Delay ist ein Effekt zum einblenden ? ;)

[Knotti2005]

da fehlt ein Komma die 2te hat mehr mit dem Effekt insgesamt zu tun..

[PierreB]

Hab grad noch nen alten Thread von mir gefunden. Vielleicht was für dich. :-)