Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
§Ú¦b button ùؼg
exit1.text := '123'; for i:= 1 to 10000 do; exit1.text := '456';
¬°¦ó 123 ¤£·|Åã¥Ü¥X¨Ó? ¦p¦ó×¥¿?
½Ð¦b exit1.text := '123';ªº¤U¤@¦C¥[¤W
exit1.Refresh;
'123'´N¥i¥H¥X²{¤F
«ö·Óì¨Óªº¼gªk, §Y¨Ï For °j°éªº°õ¦æ¦¸¼Æ¼g±o¦A¦h, ®£©È'123'¤]«ÜÃø¥X²{, ì¦]¬O: «ü©wText Äݩʫá, µ{¦¡¬yµ{¥ß¨è´N¶i¤J¤F°j°é¤¤, exit(³oÀ³¸Ó¬OTEdit¤¸¥ó§a)¨S¦³¾÷·| RePaint³oÓ¦r¦ê, µ¥¨ì°j°éµ²§ô¤F, Edit ªºÄݩʥߧY¤S«ü©w¦¨¨ä¥L¦r¦ê, ¦]¦¹«ÜÃø¹îı¨ìÅܤÆ
¥t¥~, ±z¤]¥i¥H¦Ò¼{¥H TTimer ©Î¥H¤Uªº¤è¦¡¹F¦¨ì¨Ó·Qnªº®ÄªG
(* -------------------------------------------------- *) (* ©µ¿ð lMilliSeconds * 0.001 ¬í (* (* -------------------------------------------------- *) procedure Delay(lMilliSeconds: longint); var lStart: longint; begin lStart := GetTickCount; while GetTickCount - lStart <= lMilliSeconds do Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := '123'; Delay(1000); (* ©µ¿ð 1 ¬í *) Edit1.Text := '456'; end;
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |