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

Delphi 5 ¿ØÖÆExcel

(Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨  
   
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj:  
  var   ExcelApp:   Variant;  
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   );  
   
  1)   ÏÔʾµ±Ç°´°¿Ú£º  
  ExcelApp.Visible   :=   True;  
   
  2)   ¸ü¸Ä   Excel   ±êÌâÀ¸£º  
  ExcelApp.Caption   :=   'Ó¦ÓóÌÐòµ÷Óà   Microsoft   Excel';  
   
  3)   Ìí¼Óй¤×÷²¾£º  
  ExcelApp.WorkBooks.Add;  
   
  4)   ´ò¿ªÒÑ´æÔڵŤ×÷²¾£º  
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   );  
   
  5)   ÉèÖõÚ2¸ö¹¤×÷±íΪ»î¶¯¹¤×÷±í£º  
  ExcelApp.WorkSheets[2].Activate;      
  »ò    
  ExcelApp.WorksSheets[   'Sheet2'   ].Activate;  
   
  6)   ¸øµ¥Ôª¸ñ¸³Öµ£º  
  ExcelApp.Cells[1,4].Value   :=   'µÚÒ»ÐеÚËÄÁÐ';  
   
  7)   ÉèÖÃÖ¸¶¨ÁеĿí¶È£¨µ¥Î»£º×Ö·û¸öÊý£©£¬ÒÔµÚÒ»ÁÐΪÀý£º  
  ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5;  
   
  8)   ÉèÖÃÖ¸¶¨Ðеĸ߶ȣ¨µ¥Î»£º°õ£©£¨1°õ£½0.035ÀåÃ×£©£¬ÒÔµÚ¶þÐÐΪÀý£º  
  ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1ÀåÃ×  
   
  9)   ÔÚµÚ8ÐÐ֮ǰ²åÈë·ÖÒ³·û£º  
  ExcelApp.WorkSheets[1].Rows[8].PageBreak   :=   1;  
   
  10)   ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£º  
  ExcelApp.ActiveSheet.Columns[4].PageBreak   :=   0;  
   
  11)   Ö¸¶¨±ß¿òÏß¿í¶È£º  
  ExcelApp.ActiveSheet.Range[   'B3:D4'   ].Borders[2].Weight   :=   3;  
 


Ïà¹ØÎĵµ£º

Delphi ÖÐWebBrowser¿Ø¼þÏê½âʵÀý

Delphi ÖÐWebBrowser¿Ø¼þÏê½âʵÀý ת
2008-05-07 12:07
        ºÜ¾Ã¶¼Ã»ÓÐÔ­´´ÁË£¬Ç°¼¸Ìì°ïÅóÓÑ×öÁ˸öÍøÖ··¢²¼³ÌÐò£¬Ö÷ÒªÓ¦Óõ½ÁËWebBrowser¿Ø¼þ¡£
½ñÌìÖ÷Òª¸ø´ó¼ÒÑÝʾһϹý³Ì£¬Èôó¼ÒѧϰһÏÂDelphi¹¤¾ß¡£
WebBrowser¹¦ÄÜ£º
1¡£×Ô¶¯¼ÓÔØÍøÒ³
2¡£È¥³ýWebBrowser¹ö¶¯Ìõ
3¡£WebB ......

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


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

¹ØÓÚÔÚ³ÌÐòÖÐÉ趨comboboxµÄÏÂÀ­²Ëµ¥¿í¶È[delphi]

¶¨Ò壺
CbName: TComboBox;
width: Integer;                  //ʵ¼ÊËùÐèµÄ¿í¶È
ÔÚÖ´ÐдúÂëÖа´ÈçÏ·½·¨Ð´£º
width := CbName.Canvas.TextWidth(CbName.Items[I]); //¿ÉÓô˷½·¨Í¨¹ý±éÀú»ñµÃijѡÏîµÄ×î´ó¿í¶È£¬Ò²¿ÉÒÔ°´×Ô¼ºµÄÐ ......

¹ØÓÚTDateTimePickerµÄÉ趨[delphi]

ÓÉÓÚÐèÒªÔÚ´°ÌåÖÐÉ趨һ¸öÈÕÆÚʱ¼ä£¬³öȥͨÓÃÐÍ¿¼ÂÇ£¬²ÉÓÃÁËTDateTimePicker¿Ø¼þ¡£
ÒòΪÕâ¸ö¿Ø¼þµÄĬÈÏ״ֻ̬ÄÜÏÔʾÈÕÆÚ£¬Ôì³ÉʹÓÃÉϵIJ»±ã£¬ËùÒÔÐèÒª×öÈçϵÄÉ趨£º
ÔڿؼþµÄformatÊôÐÔÀ¸ÀïÉèÖÃÈçÏÂÖµ£ºyyyy-mm-dd hh:mm:ss£»
É趨Íê³ÉºóµÄʱ¼äΪµ±Ç°µÄϵͳʱ¼ä£¬²»ÄÜͨ¹ýµ¯³öÈÕÀúÉ趨£¬Ö»ÄÜÔÚÎı¾¿òÖÐÉ趨¡£ ......

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ