DelphiÖÐÓÃTListViewÏÔʾÊý¾Ý¿âÊý¾Ý
	
    
    
	Ê×ÏÈ´´½¨Ò»¸öеÄÏîÄ¿£¬È»ºóÏò´°ÌåÉÏÌí¼ÓÒ»¸öTQuery×é¼þºÍÒ»¸öTListView×é¼þ.
¡¡ÉèÖÃTQuery×é¼þµÄDatabaseNameÊôÐÔÉèÖÃΪDBDEMOS£¬SQLÊôÐÔÉèÖÃΪselect * from country¡£È»ºóÌí¼Ó³ÌÐò³õʼ»¯´úÂëÈçÏ£º
with adoquery1 do
  begin
  close;
  ADOConnection1:=TADOConnection.Create(nil);
  Adoconnection1.LoginPrompt:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
  adoquery1.Connection :=  ADOConnection1;
  SQL.Clear;
  SQL.add('select * from BOSS');
  Open;
  end;
  for i:=0 to adoquery1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=adoquery1.Fields[i].FieldName;
end;
adoquery1.First;
while not adoquery1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=adoquery1.Fields[0].AsString;
for i:=1 to adoquery1.FieldCount-1 do
begin
TempItem.SubItems.Add(adoquery1.Fields[i].AsString);
end;
adoquery1.Next;
end;
¡¡³ÌÐòÊ×ÏÈͨ¹ýListView1.ViewStyle:=vsReportÓï¾äÉèÖÃTListView×é¼þµÄViewStyleÊôÐÔֵΪvsReport¡£È»ºóͨ¹ýµÚ1¸öÑ»·ÖеÄTempColumn:=self.ListView1.Columns.AddºÍTempColumn.Caption:=Query1.Fields[i].FieldNameÓï¾äÔÚTListView×é¼þµÄ±êÌâÐÐÖÐÏÔʾÊý¾Ý¿âÖÐ×ֶεÄÃû³Æ¡£×îºóͨ¹ýÒ»¸öÑ»·ÖðÐÐÊä³öÊý¾Ý¿âµÄËùÓÐÊý¾Ý¡£
±£´æÎļþ£¬È»ºó°´F9¼üÔËÐгÌÐò
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses  
    Windows,   
    SysUtils,   
    Classes,   
    ShellAPI;   
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
	
    
        
    
    ÄÚÈݼò½é   
    dbExpressÊÇBorland¹«Ë¾ÏÂÒ»´úÊý¾Ý·ÃÎʼ¼Êõ¡£±¾Êé²»½öÏêϸ½éÉÜÁËdbExpressµÄ»ù±¾¹¦ÄÜ¡¢Ê¹Óü¼ÇÉÒÔ¼°Delphi/KylixµÄDataSnap¼¼Êõ£¬»¹ÏêϸÌÖÂÛÁËdbExpressµÄʵÏÖÔÀíÒÔ¼°dbExpressµÄδÀ´·¢Õ¹Ç÷ÊÆ¡£±¾Êé½á¹¹ÇåÎú£¬½²½â͸³¹£¬ÊµÀý·á¸»¡£×÷ÕßÀîάÊÇBorland¹«Ë¾ÖøÃû¼¼Êõר¼Ò£¬ÔøÖøÓжಿDelphiÃû ......
	
    
        
    
    ÓÐʱÐèҪʹÓÃ͸Ã÷¿Ø¼þÓÃÓÚ²¶»ñÊó±êÏûÏ¢
1.µ÷ÓÃWindows2000,xpеÄAPIº¯ÊýʵÏÖÕâÒ»¹¦ÄܵĹý³Ì¡£Ê¹ÓÃSetLayeredWindowAttributes 
2.Ö±½ÓÉèÖÿؼþµÄalphablend,alphablendvalue£¬¼ä½Óµ÷ÓÃÉÏÊöapi.
3.ʹÓÃTStaticText¿Ø¼þ
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
	
    
        
    
    
Ò»¡¢ÀàºÍ¶ÔÏó 
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£ 
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£ 
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£ 
¶þ¡¢ÀàµÄ·½·¨·ÖÀà 
1¡¢  ÆÕͨ·½·¨ 
²»¼ÓÈκÎÐÞÊε ......
	
    
        
    
     Delphi ActiveX FormµÄʹÓÃʵÀý
By knityster
1. ActiveX¿Ø¼þ¼ò½é
ActiveX¿Ø¼þÒ²¾ÍÊÇÒ»°ãËù˵µÄOCX¿Ø¼þ£¬ËüÊÇActiveX¼¼ÊõµÄÒ»²¿·Ö¡£
ActiveX¿Ø¼þ¿ÉÒÔ±»¼¯³Éµ½ºÜ¶àÖ§³ÖActiveXµÄÓ¦Óõ±ÖÐÈ¥£¬»òÕßÖ±½ÓÓÃÀ´À©Õ¹Ó¦ÓõŦÄÜ£¬ÕâЩ֧³ÖActiveXµÄÓ¦ÓðüÀ¨C++ Builder¡¢Delphi¡¢Visual dBASE¡¢ Visual Basic¡¢Visual C++¡ ......