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

Delphi WindowsÏûÏ¢

ÎÒ²¶»ñÁËÒ»¸ö´¹Ö±¹ö¶¯Ìõ¹ö¶¯µÄÏûÏ¢£¬ÎÒÈçºÎÅжϹö¶¯Ìõ¹ö¶¯µÄ ·½Ïò »òÕß Êǹö¶¯ÌõµÄλÖÃ
up

²é²éÕâ¸öÏûÏ¢¸½´øÓÐʲô²ÎÊý¡£

ÒÔÏÂÕª×Ôºî½ÝÒë¡¶Programming Windows¡·µÚÎå°æµÚËÄÕ£º

ÿ¸ö¾í¶¯ÁоùÓÐÒ»¸öÏà¹ØµÄ¡¸·¶Î§¡¹£¨ÕâÊÇÒ»¶ÔÕûÊý£¬·Ö±ð´ú±í×îСֵºÍ×î´óÖµ£©ºÍ¡¸Î»Öá¹£¨ËüÊÇ¾í¶¯·½¿éÔÚ´Ë·¶Î§ÄÚµÄλÖã©¡£µ±¾í¶¯·½¿éÔÚ¾í¶¯ÁеĶ¥²¿£¨»ò×󲿣©Ê±£¬¾í¶¯·½¿éµÄλÖÃÊÇ·¶Î§µÄ×îСֵ£»ÔÚ¾í¶¯Áеĵײ¿£¨»òÓÒ²¿£©Ê±£¬¾í¶¯·½¿éµÄλÖÃÊÇ·¶Î§µÄ×î´óÖµ¡£

ÔÚÄÚ¶¨Çé¿öÏ£¬¾í¶¯Áеķ¶Î§ÊÇ´Ó0£¨¶¥²¿»ò×󲿣©ÖÁ100£¨µ×²¿»òÓÒ²¿£©£¬µ«½«·¶Î§¸Ä±äΪ¸ü·½±ãì¶³ÌʽµÄÊýÖµÒ²ÊǺÜÈÝÒ׵ģº

SetScrollRange (hwnd, iBar, iMin, iMax, bRedraw) ;
²ÎÊýiBarΪSB_VERT»òÕßSB_HORZ£¬iMinºÍiMax·Ö±ðÊÇ·¶Î§µÄ×îСֵºÍ×î´óÖµ¡£Èç¹ûÏëÒªWindows¸ù¾Ýз¶Î§ÖØ»­¾í¶¯ÁУ¬ÔòÉèÖÃbRedrawΪTRUE£¨Èç¹ûÔÚºô½ÐSetScrollRangeáᣬºô½ÐÁËÓ°Ïì¾í¶¯ÁÐλÖÃµÄÆäËûº¯Ê½£¬ÔòÓ¦¸Ã½«bRedrawÉ趨ΪFALSEÒÔ±ÜÃâ¹ý¶àµÄÖØ»­£©¡£

Äú¿ÉÒÔʹÓÃSetScrollPosÔÚ¾í¶¯Áз¶Î§ÄÚÉèÖÃÐÂµÄ¾í¶¯·½¿éλÖãº

SetScrollPos (hwnd, iBar, iPos, bRedraw) ;
²ÎÊýiPosÊÇÐÂλÖã¬Ëü±ØÐëÔÚiMinÖÁiMaxµÄ·¶Î§ÄÚ¡£WindowsÌṩÁËÀàËÆµÄº¯Ê½£¨GetScrollRangeºÍGetScrollPos£©À´È¡µÃ¾í¶¯ÁеÄĿǰ·¶Î§ºÍλÖá£

ÔÚ³ÌʽÄÚʹÓÃ¾í¶¯ÁÐʱ£¬³Ìʽд×÷ÕßÓëWindows¹²Í¬¸ºÔðά»¤¾í¶¯ÁÐÒÔ¼°¸üÐÂ¾í¶¯·½¿éµÄλÖá£ÏÂÃæÊÇWindows¶Ô¾í¶¯ÁеĴ¦Àí£º

´¦ÀíËùÓÐ¾í¶¯Áл¬Êóʼþ
¡¡
µ±Ê¹ÓÃÕßÔÚ¾í¶¯ÁÐÄÚµ¥»÷»¬Êóʱ£¬ÌṩһÖÖ¡¸·´ÏàÏÔʾ¡¹µÄÉÁ˸
¡¡
µ±Ê¹ÓÃÕßÔÚ¾í¶¯ÁÐÄÚÍ϶¯¾í¶¯·½¿éʱ£¬Òƶ¯¾í¶¯·½¿é
¡¡
Ϊ°üº¬¾í¶¯ÁÐÊÓ´°µÄÊÓ´°


Ïà¹ØÎÊ´ð£º

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ