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

DelphiʼþµÄ¹ã²¥


    Ã÷Ìì¾ÍÊÇÎåÒ»½ÚÁË£¬ÐÁ¿àÁ˺ü¸¸öÔ£¬½è´Ë»ú»áÓ¦¸Ã¾¡Çé·ÅËÉÒ»·¬¡£¿ÉÊÇÏëµ½BlogºÃ¾ÃûÓÐдÎÄÕ£¬ËƺõÈ±Ð©Ê²Ã´ËÆµÄ¡£Õ⼸¸öÔÂÀ´ÔÚÏîÄ¿ÖÐÓÖÔö³¤ÁËÐí¶à¾­Ñ飬ѧµ½Ðí¶àʵ¼ÊÓ¦ÓõÄ֪ʶ¡£²»Èç°ÑһЩ±È½ÏÓÐÓõļǼÏÂÀ´£¬¹©ÅóÓÑÃDzο¼¿ÉºÃ¡£
ÎÒÏëµ½DelphiµÄʼþ£¬ÄÇ¿ÉÕæÊǸö·½±ãµÄ¶«Î÷£¬³õѧÕßÔÚ´°ÌåÉÏÀ­¼¸¸ö¿Ø¼þ£¬²¢Ö¸¶¨ËüÃǵÄʼþ£¬Ð´¼¸¾ä´úÂ룬Á¢¿Ì¾ÍµÃµ½ËûÃÇÏëÒªµÄЧ¹û¡£¿ÉÊÇʼþÔÚ·½±ãµÄͬʱҲÓÐÒ»¸ö²»×ãÖ®´¦£¬¾ÍÊÇÖ»ÄÜÖ¸¶¨Ò»¸ö½ÓÊÕʼþµÄ¶ÔÏó£¬ÕâÔÚijЩӦÓÃÖлáÊÜÊÕÏÞÖÆ£¬±ÈÈç¶àÊÓͼ¶ÔÓ¦Ò»¸öÒµÎñÂß¼­Ê±£¬µ±Ò»¸öÒµÎñ¶ÔÏóÏë֪ͨÊÓͼ¸üÐÂËüÃǵÄ״̬£¬Èç¹ûÓÃʼþ£¬ÄÇÖ»ÄÜÓÐÒ»¸öÊÓͼµÃµ½Í¨Öª¡£
ÓÐûÓа취ÈöÔÏó´¥·¢Ê¼þʱ£¬¶à¸ö¶ÔÏóͬʱÄÜÊÕµ½ÄØ£¿Æäʵ×ÐϸһÏ룬»¹ÊÇÓÐͦ¶àµÄ£¬¸ù±¾µÄ¾ÍÊÇά»¤Ò»ÕŽÓÊÕʼþ¶ÔÏóµÄÁÐ±í£¬Ê¼þ·¢Éúʱ£¬±éÀúÁÐ±í²¢µ÷ÓÃÏàÓ¦µÄ·½·¨¡£±¾ÎĽéÉÜÁ½ÖÖ·½·¨£¬ÕâÁ½ÖÖ·½·¨¶¼±È½ÏºÃÓá£
µÚÒ»ÖÖ·½·¨ÊÇ´ÓApplicationEvents¿Ø¼þµÄʵÏÖ·½Ê½Ñ§À´µÄ¡£ApplicationEventsÊÇΪÁË·½±ãµØ´¦ÀíApplicationµÄËùÓÐʼþ£¬Ò»¸ö³ÌÐòÖзŶà¸öApplicationEvents£¬ËüÃǶ¼ÄÜͬʱ´«µÝApplicationµÄʼþµ½Ê¼þ½ÓÊÕÀàÖУ¬ÏÂÃæÊÇÒ»¸öÀý×Ó£¬ÔÚÒ»¸ö´°ÌåÉÏ·ÅÁ½¸öApplicationEvents¿Ø¼þ£¬²¢Ö¸¶¨ËüÃǵÄOnMessageʼþ£¬²¢Ð´ÈçÏ´úÂ룺
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Edit1.Text := IntToStr(i1);
  Inc(i1);
end;
procedure TForm1.ApplicationEvents2Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Edit2.Text := IntToStr(i2);
  Inc(i2);
end;
    ÔËÐгÌÐò£¬¿ÉÒÔ¿´µ½Á½¸öʼþ´¦Àí·½·¨¶¼·¢ÉúÁË£¬i1ºÍi2·è¿ñµÄÔö³¤¡£Ò²¾ÍÊÇ˵Applicationͨ¹ýApplicationEventsÕâ¸ö¿Ø¼þʹµÃËüµÄʼþ¿ÉÒÔ±»¶à¸ö¶ÔÏóͬʱ½ÓÊÕ£¬ÏÔÈ»ApplicationEvents²»ÊǼòµ¥µØ´«µÝApplicationµÄʼþ£¬Ò»¶¨ÊÇÔËÓÃÁËijЩ¼¼ÇÉ£¬¿´¿´ËüµÄÔ´ÂëÈçºÎ¡£
    ´ò¿ªAppEvntsÕâ¸öµ¥Ôª£¬·¢ÏÖÀïÃæµÄ´úÂë²¢²»¶à£¬ÔÚ³õʼ½ÚÖÐÓÐÕâÑùµÄ´úÂ룺
initialization
  ... ...
  MultiCaster := TMultiCaster.Create(Application);
end.
    MultiCasterÊÇTMultiCasterÀàµÄÒ»¸öÈ«¾Ö¶ÔÏ󣬹¹Ô캯Êý´«½øAppication¶ÔÏ󣬿ÉÒԿ϶¨£¬ÔÚÀïÃæMultiCaster½«½ÓÊÕApplicationµÄËùÓÐʼþ£¬¿´¿´Ô´Âë¾ÍÖªµÀÁË¡£
constructor TMult


Ïà¹ØÎĵµ£º

DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)

¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
    a: Integer;
    p: ^Integer;
begin
    with self.Memo1.Lines do
    begin
        ......

DelphiÖÐʵÏÖ¼ÓÔØINFÇý¶¯³ÌÐò£¡


°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
function InstallInf(const PathName: string; hParent: HWND): Boolean;
var
  instance: HINST;
begin
  instance := ShellExecute(hParent,
      PChar('open ......

DelphiÖÐÊó±êµÄÐÎ×´

procedure TForm2.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Screen.Cursor := -2;
end;
const
  crDefault    = TCursor(0);
  crNone        = TCursor(-1);
  crArrow      = TCursor(-2);
&n ......

delphiÖÐIhtmldocument2½Ó¿ÚµÄʹÓÃ

MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËØ¼°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®
¡¡¡¡MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigator£¬Document£¬Vi—sum ......

Delphi ×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨5£©ÊµÏÖÀàQQµÄ±à¼­¿ò

¾àÀëÉÏһƪϵÁеÄÎÄÕÂÓÐÒ»¶Îʱ¼äÁË£¬¼ÙÖÕÓÚÊÇ·ÅÍêÁË£¡ÏÖÔÚÔÛ¼ÌÐøÔÚTEditÉÏ×öÎÄÕ£¬Í¬Ê±À´ÊìϤijЩWindowsµÄϵͳÏûÏ¢¡£ÏÖÔÚÎÒ½²µÄÊÇÈçºÎʵÏÖÒ»¸öÀàËÆQQ±à¼­¿òµÄÑùʽ¡£
  
ÔÙ½²½â֮ǰ£¬ÏÈ»ØÀ¡Ç°¼¸ÆªÎÄÕÂÓÐЩÈËÌá³öµÄÎÊÌ⡣ͨ¹ýǰ¼¸ÆªÎÄÕ£¬ÓкܶàÈ˹Ø×¢£¬Í¬Ê±Ò²ÓÐÈ˸øÁËһЩ½¨Òé¡£ËùÒÔÎÒÕâÀï˵Ã÷һϣ¬ÎÒÕâ¸ö×é¼ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ