如何達到打字效果??

Question

OnPaint中你加入自己的事件取前几个字符 显示 再延时 再加下汉字 显示 再延时

Answer 1

下面只是一种思路，你还需要判断是否汉字，句号什么的
var i: Integer ;
    S, S1: String ;
begin
     Timer1.Enabled := True ;
     S := 'abcdefghijklmn' ;
     Label1.Caption := '' ;     for i := 1 to Length(S) do
       begin
       S1 := Label1.Caption ;
       Label1.Caption := S1 + '_' ;
       Sleep(300);
       Refresh ;
       Label1.Caption := S1 + S[i] ;
       Sleep(300);
       Refresh ;
       end ; //of for

Answer 2

var
  i:integer;
  s:String;
begin
  s:='Hello, world. How are you, my friend.';  label1.WordWrap := True;
  label1.caption:='';  for i:=1 to length(s) do
  begin
    label1.caption:=label1.Caption + s[i];
    if s[i]='.' then label1.Caption := label1.Caption + #13#10;
    sleep(100);
    application.ProcessMessages;
  end;
end;==================================================
PhotoMark：一款快速图片水印添加工具，支持多个水印同时添加！支持批处理，支持透明水印和半透明水印，支持水印的平铺等等。是您保护图片的利器。 下载地址：
http://www.skycn.com/soft/9031.html
http://www.onlinedown.com/photo.htm
生成的图片示例:
http://www.ncu94.com/keyzsoft/pm_exam.htm

Answer 3

To:  breezing(网上的小鱼)
我輸入漢字時為何會先出現亂碼然後隨即正常顯示,這是什麼問題?
換行的問題是否請你一同指教一下呢??
我是個菜鳥,真的不會,請教教我.
謝謝.

Answer 4

多謝 keyz(keyz) 
漢字顯示問題又如何??

Answer 5

定义
 S:WideString;就可以解决汉字问题。==================================================
PhotoMark：一款快速图片水印添加工具，支持多个水印同时添加！支持批处理，支持透明水印和半透明水印，支持水印的平铺等等。是您保护图片的利器。 下载地址：
http://www.skycn.com/soft/9031.html
http://www.onlinedown.com/photo.htm
生成的图片示例:
http://www.ncu94.com/keyzsoft/pm_exam.htm