Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨2£©¼òµ¥À©³äTEdit


ÉÏһƪ£¬½éÉÜÁË×é¼þ¿ª·¢µÄÒ»°ã¸ÅÊö£¬ÒÔ¼°×é¼þÀà²ã´Î½á¹¹µÄ¸÷¸öÀàµÄ´óÖÂÐÅÏ¢£¡ÏÖÔھͿªÊ¼Í¨¹ýʵÀý½øÐÐÀ´¼òµ¥µÄ½²ÊöÒ»ÏÂÒ»°ã×é¼þµÄ¿ª·¢¹ý³Ì£¡ÎÒÕâÀïÏȲÉÓÃ×î
»ù±¾µÄ·½Ê½À´´´½¨Ò»¸ö×é¼þ£¡Ò²¾ÍÊÇʹÓÃDelphi×Ô¼ºµÄ×é¼þ¿ª·¢Ïòµ¼À´½¨Á¢Ò»¸öеÄ×é¼þ¡£ÔÚÕâÀÎÒÒÔÀ©³äTEditΪÀý½øÐн²½â¡£
   ÄÇôÊ×ÏÈ£¬Òª½éÉܵľÍÊÇÈçºÎʹÓÃDelphiµÄ×é¼þ¿ª·¢Ïòµ¼ÁË£¡Õâ¸öÏòµ¼ÔÚDelphi IDEµÄComponent²Ëµ¥ÏµÄNewComponent´ò¿ª¾ÍÊÇÏòµ¼ÁË£¬¿ÉÒÔ²ÎÕÕÈçÏ£º
´ÓͼÉÏ¿ÉÒÔ¿´µ½£¬ÎÒͨ¹ýÏòµ¼£¬ÎÒÏÈÑ¡ÔñÁË´Ó×é¼þTeditÍùϼ̳У¬ÓÚÊÇDelphi×Ô¶¯Éú³ÉÁËÐÂ×é¼þÀàTEdit1£¬È»ºóÎÒÑ¡ÔñÁ˽«±¾×é¼þ×¢²áµ½
StandardÕâ¸ö¿Ø¼þÃæ°åÉÏÈ¥£¬È»ºó±£´æÁ˵¥ÔªÎļþµ½C:\TestÕâ¸öĿ¼Ï£¡È»ºóµã»÷ÏÂÒ»²½Íê³É£¬delphi×Ô¶¯°ïÎÒÃÇÉú³ÉÁËÒ»¸ö
Edit1.pasµÄµ¥ÔªÎļþ¡£ÕâÑùÒ»¸öеĻù±¾¿Ø¼þ¾ÍÍê³ÉÁË£¡´Ëʱ£¬¾Í¿ÉÒÔÔÚÎÒÃǵŤ³ÌÖÐʹÓÃTEdit1.Create(nil)ÕâÑùµÄÓï¾äÀ´´´½¨¸Õ
¸Õ½¨Á¢µÄÐÂEdit×é¼þÁË£¬Ö»ÊÇÏÖÔÚµÄÕâ¸ö¿Ø¼þÓëTEditûÓÐÈκι¦ÄÜÉϵÄÇø±ð£¬Î¨Ò»µÄÈ´±ð¾ÍÊǽö½ö±äÁ˱ä×é¼þµÄÀàÃû³Æ¶øÒÑ£¡ÊÇÒ»¸öûÓÐÈκÎÒâÒåµÄ×é
¼þ£¡ÏÂÃæ£¬ÎÒÒª¿ªÊ¼½²½âµÄ±ãÊÇÀ©³äÒ»ÏÂÕâ¸öEdit£¬Ê¹µÃÕâ¸ö¿Ø¼þ¾ß±¸Ò»Ð©DelphiµÄTEditËù²»¾ß±¸µÄ¹¦ÄÜ£¡
   
ÎÒÏëÒ»Ï룬À©³ä¼¸¸öɶ¹¦ÄÜÄØ£¡Ã²ËÆDelphi×Ô¼ºµÄTeditûÓÐAlignmentÕâ¸öÊôÐÔ¹þ£¬ÄÇôµÚÒ»²½£¬¾ÍÀ´ÏÈΪÎÒÃǸոմ´½¨µÄÄǸöÐÂ×é¼þÔö¼ÓÒ»
¸öAlignmentÊôÐÔ£¬¿ÉÒÔÈÃÓû§À´ÉèÖÃEditÖÐÎÄ×ÖµÄ¶ÔÆë·½Ê½°É£¡ÔõôÄÜÉèÖÃEdit±à¼­¿òµÄÎÄ×ÖµÄ¶ÔÆë·½Ê½ÄØ£¡Õâ¸öÍøÉÏÓкܶà×ÊÁϵģ¬ÎÒÃDzé²é
MSDN£¬¿ÉÒÔ·¢ÏÖEditÓм¸ÖÖÑùʽES_LEFT, ES_RIGHT,
ES_CENTER·Ö±ðÓÃÀ´ÉèÖÃÎÄ×ÖµÄ×ó¶ÔÆë£¬ÓÒ¶ÔÆëºÍ¾ÓÖÐ¶ÔÆë£¡Ò»°ãÇé¿öÏ£¬Ä¬ÈϵÄÊÇ×ó¶ÔÆë£¬Èç¹ûÒªÐÞ¸ÄEditµÄ¶ÔÆë·½Ê½ÎªÆäËûµÄ¶ÔÆë·½Ê½£¬ÄÇô£¬ÎÒ
ÃǾÍÐèÒªÉèÖñ༭¿òµÄÑùʽΪеÄÑùʽ£¬WindowsÓÐÒ»¸öAPIº¯Êý£¬×¨ÃÅÓÃÓÚÉèÖÃÆä¿Ø¼þµÄÑùʽµÄº¯ÊýΪSetWindowLong£¬Èç¹ûÒªÔÚÔËÐÐʱֱ
½Ó¶ÔDelphiµÄEditÉèÖÃ¶ÔÆë·½Ê½£¬¾Í¿ÉÒÔÓøú¯ÊýÀ´ÊµÏÖ£¡±ÈÈç
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_Right);
ÕâÒ»¾ä¾ÍÄÜÈÃEdit1µÄ¶ÔÆë·½Ê½±ä³ÉÓÒ¶ÔÆë£¬ÓÚÊÇ£¬ÎÒÃÇ¿ÉÒÔÏëÏó£¬ÎÒÃÇ¿ÉÒÔÔÚ×é¼þÄÚ²¿¿ª·ÅÒ»¸öÊôÐÔ£¬Óû§Ò»ÉèÖ㬾ÍÄܵ÷ÓÃÕâ¸ö´úÂëÀ´Ö´ÐУ¡ËùÒÔ£¬ÎÒÏÈÔÚÎÒÃǸոÕÉú³ÉµÄÄǸöµ¥ÔªÀàTEdit1µÄPublishedÓòÖÐÌí¼ÓÉÏÒ»¸öеÄÊôÐÔ
published
    { Published declarations }
 &nb


Ïà¹ØÎĵµ£º

»ùÓÚDelphiµÄSocket I/OÄ£ÐÍÈ«½Ó´¥(×ܽá) [ת]

ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ­³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......

delphiÖÐexit,abort,break,continue µÄÇø±ð

exit: Í˳öº¯ÊýÌå
abort: Óöµ½Òì³£,°²¾²´¦Àí,¾ÍÊDz»ÏÔʾ²»Ìáʾ
break: Í˳öµ±Ç°Ñ­»·Ìå,°üÀ¨for ,while, repeatµÈÑ­»·Ìå
continue: ½áÊøÑ­»·Äڵı¾´Î´¦Àí,¼ÌÐø´ÓÑ­»·ÌåµÄ¿ªÊ¼Î»ÖüÌÐøÖ´ÐÐ
Exit ÊÇÌø³öµ±Ç°´úÂë¿é£¬Ò²¾ÍÊǵ±Ç°º¯Êý£¬Ìø³öºóÊÇÒª¼ÌÐøÏòÏÂÖ´Ðеģ¨Èç¹ûÓкóÐø´úÂ룩¡£
Abort ÊÇ´Ó EAbort ¹ýÀ´µÄ£¬¿ÉÒÔ¼¤·¢ ex ......

DelphiµÄbug

×î½üÔÚµ÷ÊÔ´úÂë,·¢ÏÖÒ»¸öÎÊÌâ.Ó¦¸ÃËãÊÇbug°É. ºÇ,Èç¹û²»Ëãbug,ÄǾÍÊÇÎÒ¶ÔÆäʵÏÖÔ­ÀíµÄÎó½â.
Èç¹û°Ñ·µ»Ø²ÎÊýResult×÷ΪÁíÒ»º¯ÊýµÄÊäÈë²ÎÊý,resultµÄ³õÖµÊDz»È·¶¨...
function fun(str:string):string;
begin
  fun2(result);
end; ......

delphi±¨¾¯ÉùÒô Beep¡¢MessageBeep ºÍ Windows.Beep


Îҵİ취£¬Ôö¼ÓÒ»¸ötimer ÉèÖüä¸ô100ms£¬Í¨¹ýtimerµÄʹÄÜ·ñ£¬¿ØÖƱ¨¾¯ÉùÒô¿ª¹Ø
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Windows.Beep(1200+i_f,10+i_f);
   if i_f<2000 then
   begin
      inc(i_f);
   end
end;
== ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ