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
Ïà¹ØÎĵµ£º
¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
a: Integer;
p: ^Integer;
begin
with self.Memo1.Lines do
begin
......
°ïÖúÒ³ÔÚ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 ......
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 ......
MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËØ¼°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®
¡¡¡¡MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigator£¬Document£¬Vi—sum ......
¾àÀëÉÏһƪϵÁеÄÎÄÕÂÓÐÒ»¶Îʱ¼äÁË£¬¼ÙÖÕÓÚÊÇ·ÅÍêÁË£¡ÏÖÔÚÔÛ¼ÌÐøÔÚTEditÉÏ×öÎÄÕ£¬Í¬Ê±À´ÊìϤijЩWindowsµÄϵͳÏûÏ¢¡£ÏÖÔÚÎÒ½²µÄÊÇÈçºÎʵÏÖÒ»¸öÀàËÆQQ±à¼¿òµÄÑùʽ¡£
ÔÙ½²½â֮ǰ£¬ÏÈ»ØÀ¡Ç°¼¸ÆªÎÄÕÂÓÐЩÈËÌá³öµÄÎÊÌ⡣ͨ¹ýǰ¼¸ÆªÎÄÕ£¬ÓкܶàÈ˹Ø×¢£¬Í¬Ê±Ò²ÓÐÈ˸øÁËһЩ½¨Òé¡£ËùÒÔÎÒÕâÀï˵Ã÷һϣ¬ÎÒÕâ¸ö×é¼ ......