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

delphi Èý·½¿Ø¼þ

VCLÖеÄShapeÊǸöºÜ²»´íµÄ¿Ø¼þ£¬¿ÉÒÔÑ¡Ôñ¼¸ÖÖͼÐΣ¬ÒÔÂú×ãÎÒÃǵÄÐèÇ󣬵«ÓÐʱºò¾ÍÊǾõµÃËüµÄ¿ÉѡͼÐÎÉÙÁËÒ»µã£¬±ÈÈçÎÒÃÇÏëÒªÒ»¸öÈý½ÇÐΣ¬ËüȴûÓС£ÓÚÊǾÍÏëµ½À´À©Õ¹Ò»ÏÂÕâ¸ö¿Ø¼þ£¬ÃûΪShapeEx¡£ÆäʵÀ©Õ¹µÄ¹¦Äܲ»¶à£¬Ö»ÊÇÔö¼ÓÁËһЩͼÐΡ£¶øÀàÒ²²¢²»ÊǼ̳Ð×ÔTShape£¬¶øÊǼ̳Ð×ÔTGraphicControl£¬ÕâÑù¿ÉÒÔÈÃÎÒÃdz¹µ×¿´¿´Í¼ÐοؼþµÄ×ö·¨¡£TshapeÒ²ÊǼ̳Ð×ÔTGraphicControl¡£¶øÎÒÃǵÄÀ©Õ¹¿Ø¼þ¹¦ÄÜÊÇ»ùÓÚShapeµÄÀ©Õ¹£¬ËùÒÔµ±È»ÀïÃæµÄ´úÂ뼸ºõÈ¡Ö®TShape£¬Ö»ÊǼÓÁËһЩÀ©Õ¹Í¼ÐεĴúÂ룬µ«ÓÖÓÐʲô¹ØϵÄØ£¬VCLÔ´ÂëÊÇ×îºÃµÄѧϰ×ÊÔ´£¬ÎÒÃǺβ»È¡Ö®ÓÃÖ®¡£
 
ºÜ¶à¶«Î÷ÎÒÃÇÒѾ­ÔÚÉÏÃæ˵¹ýÁË£¬ÕâÀï²»¶à˵ÁË£¬ÎÒÒªÖ±ÈëͼÐοؼþµÄÖص㡣ͼÐοؼþ²»ÊÇ·â×°WindowsµÄ¿Ø¼þ£¬¶øÊÇDelphi×Ô¼º»­³öÀ´µÄ£¬ÄÇôËü¿Ï¶¨ÓÐÒ»¸ö»­¿Ø¼þµÄº¯Êý¡£Õâ¸öº¯Êý¾ÍÊÇ:
Paint;
 ¿´Ò»ÏÂVCLÔ´Â룬¿ÉÒÔÖªµÀËü¶¨ÒåÔÚTGraphicControl¡£ÖУº
 procedure Paint; virtual;
ÕâÊÇÒ»¸öÐ麯Êý£¬ÄÇôËüµÄʵÏÖÊÇÔõôÑùµÄÄØ£¬µã»÷¿´ËüµÄʵÏÖÈçÏ£º
procedure TGraphicControl.Paint;
begin
end;
ÀïÃæʲôÂëҲûÓУ¬Õâ¸öºÜÈÝÒ×Àí½â£¬ÒòΪËü²»¿ÉÄÜÖªµÀËûµÄ×ÓÀàµÄͼÐÎÊÇʲôÑù×ӵġ£ËùÒÔÉèΪÐ麯Êý£¬ÓÉËüµÄ×ÓÀàÀ´¸²¸ÇËü¡£
 
ÄÇôÊÇË­µ÷ÓÃÁËÕâ¸öº¯ÊýÀ´ÒýÆ𻭿ؼþÄØ¡£WindowsÓÐÒ»¸öWM_PAINT;ÏûÏ¢£¬µ±Ò»ÇÐÒýÆðÖØ»­µÄÌõ¼þ·¢Éú£¬Ôò»á·¢ËÍÕâÌõÏûÏ¢£¬ÔÙ¿´¿´TGraphicControl£¬¹ûÈ»ÓнػñÕâ¸öÏûÏ¢£º
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
ÔÚ´¦Àíº¯ÊýÀïÃ棬µ÷ÓÃÁËPaint·½·¨£¬´Ó¶øʵÏÖÁË»­Í¼Ðοؼþ¿ÉÄÜ£º
procedure TGraphicControl.WMPaint(var Message: TWMPaint);
begin
  if Message.DC <> 0 then
  begin
    Canvas.Lock;
    try
      Canvas.Handle := Message.DC;
      try
        Paint;   //µ÷ÓÃÁËÕâ¸öº¯ÊýÀ´»­Í¼Ðοؼþ
      finally
        Canvas.Handle := 0;
      end;
    finally
      Canvas.Unlock;
    end;
  end;
end;
¶øËüµÄ×ÓÀา¸ÇÁËPaintº¯Êý£¬ËùÒÔÏûÏ¢´¦Àíº¯Êýµ÷ÓõÄʵ¼ÊÉÏÊÇij¸ö×ÓÀàµÄPaint·½·¨£


Ïà¹ØÎĵµ£º

Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð

 Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð ÊÕ²Ø
 Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö“ϵͳ·þÎñ³ÌÐò”µÄ½ø³Ì£¬ÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ðÊÇ£º
ϵͳ·þÎñ²»Óõǽϵͳ¼´¿ÉÔËÐУ»
ϵͳ·þÎñÊÇÔËÐÐÔÚSystem Idle Process/System/smss/winlogon/servicesϵģ¬¶ø×ÀÃæ³ÌÐòÊÇÔËÐÐÔÚExplorerϵģ» ......

³õ̽DelphiÖеIJå¼þ±à³Ì


Ç°ÑÔ 
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØбàÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓЭ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......

vb µ÷ÓÃdelphiдµÄdll

delphiÖеÄDLLÖеÄÉùÃ÷Ô­ÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
  SysUtils,
  Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
  jj := x * y;
  abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......

DelphiÖпØÖÆVBA ºê

ÈçºÎÔÚDelphiÀïÃæÀûÓÃWordµÄVBA´úÂë½øÐÐһЩ×ܽᡣ
1¡¢  Éú³ÉVBA´úÂë¡£Word±¾Éí¾ßÓкÜÇ¿µÄ¿ÉÀ©Õ¹ÐÔ£¬ÓÈÆäÊÇÖ§³ÖÓû§×Ô¶¨Ò幦ÄÜ£¬ÆäʵÏÖ
µÄÖ÷Òª·½Ê½¾ÍÊÇͨ¹ýVBA´úÂëÀ´ÊµÏֵġ£ÔÚ“¹¤¾ß->ºê->Visual Basic±à¼­Æ÷”ÀïÃæ¾Í¿ÉÒÔ¿´
µ½¾ßÌåµÄºê´úÂ룬¿ÉÒÔÖ±½Ó½øÐб༭¡£¶øÇÒ»¹¿ÉÒÔʹÓüÖƺêµÄ¹¦ÄÜ×Ô¶¯ ......

Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ


 Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ
Allen Tao
2007-08-19
¡¡¡¡Ê×ÏȽâÊÍÒ»ÏÂÕâ¸öÌâÄ¿¡£ÔÚÎÒʹÓÃDelphi 7µÄ¹ý³ÌÖз¢ÏÖ£¬Ò»¸ö¶ÔÏóµÄʼþÖ»Äܱ»Ò»¸ö¹ý³Ì´¦Àí¡£Èç¹û¶à´Î¸øÕâ¸ö¶ÔÏóµÄʼþ¸³¸ø´¦ÀíʼþµÄ¹ý³Ì£¬×îºóÕæÕý´¦ÀíʼþµÄ½«ÊÇ×îºó¸³ÖµµÄÄǸö¹ý³Ì¡£ÀýÈ磬ÓÐÀàTMyClassÖж¨ÒåÁËÒ»¸öʼþOnSomeFired£¬ÔÚÀàTClientClassÖи ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ