Delphi bookmarkʹÓÃ
¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»
ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈǰָÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌØ±ðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º
¡ñ GetBookMark
¡ñ GotoBookMark
¡ñ FreeBokMark
ÕâÈý¸ö·½·¨Ò»°ã¶¼ÊÇÔÚÒ»ÆðʹÓã¬GetBookMark·½·¨·µ»ØÒ»¸öTBookMarkÀàÐ͵ıäÁ¿£¬¸Ã±äÁ¿°üº¬×ÅÖ¸Ïòµ±Ç°¼Ç¼µÄÖ¸Õ룬GotoMark·½·¨ÓÃÓÚ¿ìËٵؽ«¼Ç¼ָÕ붨λµ½¾ßÓÐÊéÇ©µÄ¼Ç¼´¦¡£FreeBookmark·½·¨ÊÇÓëGetBookMark·½·¨Ïà·´µÄ²Ù×÷£¬ËüÊÍ·ÅÊéÇ©±êÖ¾¡£ÏÂÃæµÄ³ÌÐò´úÂë²ûÊöÁËÊéÇ©²Ù×÷µÄÒ»°ã·½·¨£º
BookMark : TBookMark;
BookMark := Table1.GetBookMark; {¶Ôµ±Ç°¼Ç¼×÷ÊéÇ©±êÖ¾}
Table1.DisableControls; {ÇжÏTable1ÓëÊý¾Ý²ì¾õ²¿¼þµÄÁªÏµ...ÏÂÃæÓÐÆäʹÓýâ˵}
Table.First
While Not EOF Do {¶Ô±íÖÐÈ«²¿¼Ç¼½øÐÐÆäËû´¦Àí}
begin
Tabel1.Next;
end;
Tabel1.GotoBookMark(BookMark)
Table1.EnableControls; {ÖØÐ¶¨Î»¼Ç¼ָÕë»Øµ½ÔÀ´µÄλÖÃ}
Tabel1.FreeBookMark(BookMark); {ɾ³ýÊéÇ©BookMark±êÖ¾}¡¡
-- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - -
DisableControls·½·¨ÊÇÔÚ³ÌÐòÐ޸Ļòºǫ́ÓÐˢмǼµÄʱºòÇжÏÊý¾Ý×é¼þ£¬ÈçTTABLE¡¢ADOQUERYµÈµÈÓë×é¼þÊý¾ÝÔ´µÄÁªÏµ¡£Èç¹ûûÓÐÇжϣ¬Êý¾ÝÔ´ÖÐÖ»ÒªÒ»ÓÐÊý¾ÝµÄ¸Ä¶¯£¬ÓÈÆäÊÇÅúÁ¿¸Ä¶¯µÄ»°£¬Ã¿Ò»±ÊµÄ¸Ä¶¯¶¼»á¸üд°¿ÚÖÐÊý¾Ýä¯ÀÀ×é¼þµÄÏÔʾ£¬ÕâÑù»á¼±¾ç¼õÂý´¦Àí¹ý³Ì¶øÇÒÀË·Ñʱ¼ä¡£EnableControlsµÄ×÷ÓÃÏà·´£¬ÓÃÀ´»Ö¸´TTABLEµÈ×é¼þÓ
Ïà¹ØÎĵµ£º
DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
X: Integer;
begin
X : ......
DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......
exit: Í˳öº¯ÊýÌå
abort: Óöµ½Òì³£,°²¾²´¦Àí,¾ÍÊDz»ÏÔʾ²»Ìáʾ
break: Í˳öµ±Ç°Ñ»·Ìå,°üÀ¨for ,while, repeatµÈÑ»·Ìå
continue: ½áÊøÑ»·Äڵı¾´Î´¦Àí,¼ÌÐø´ÓÑ»·ÌåµÄ¿ªÊ¼Î»ÖüÌÐøÖ´ÐÐ
Exit ÊÇÌø³öµ±Ç°´úÂë¿é£¬Ò²¾ÍÊǵ±Ç°º¯Êý£¬Ìø³öºóÊÇÒª¼ÌÐøÏòÏÂÖ´Ðеģ¨Èç¹ûÓкóÐø´úÂ룩¡£
Abort ÊÇ´Ó EAbort ¹ýÀ´µÄ£¬¿ÉÒÔ¼¤·¢ ex ......
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 ......