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

delphi DBGridÓ¦ÓôóÈ«

 ÔÚ Delphi ÓïÑÔµÄÊý¾Ý¿â±à³ÌÖУ¬DBGrid ÊÇÏÔʾÊý¾ÝµÄÖ÷ÒªÊÖ¶ÎÖ®Ò»¡£µ«ÊÇ DBGrid ȱʡµÄÍâ¹ÛδÃâÏԵõ¥µ÷ºÍȱ·¦´´Òâ¡£Æäʵ£¬ÎÒÃÇÍêÈ«¿ÉÒÔÔÚÎÒÃǵijÌÐòÖÐͨ¹ý±à³ÌÀ´´ïµ½ÃÀ»¯DBGrid Íâ¹ÛµÄÄ¿µÄ¡£Í¨¹ý±à³Ì£¬ÎÒÃÇ¿ÉÒԸıä DBGrid µÄ±íÍ·¡¢Íø¸ñ¡¢Íø¸ñÏßµÄǰ¾°É«ºÍ±³¾°É«£¬ÒÔ¼°Ïà¹ØµÄ×ÖÌåµÄ´óСºÍ·ç¸ñ¡£
    ÒÔϵÄʾÀý³ÌÐòÑÝʾÁË¶Ô DBGrid ¸÷ÊôÐÔµÄÉèÖã¬Ê¹ Delphi ÏÔʾµÄ±í¸ñ¾ÍÏñÍøÒ³Öеıí¸ñÒ»ÑùƯÁÁÃÀ¹Û¡£
    ʾÀý³ÌÐòµÄÔËÐУº
    ÔÚ Form1 ÉÏ·ÅÖà DBGrid1¡¢Query1¡¢DataSource1 Èý¸öÊý¾Ý¿â×é¼þ£¬ÉèÖÃÏà¹ØµÄÊôÐÔ£¬Ê¹ DBGrid1 ÄÜÏÔʾ±íÖеÄÊý¾Ý¡£È»ºó£¬ÔÚ DBGrid1 µÄ onDrawColumnCell ʼþÖмüÈëÒÔÏ´úÂ룬ȻºóÔËÐгÌÐò£¬¾Í¿ÉÒÔ¿´µ½ÉñÆæµÄ½á¹ûÁË¡£±¾´úÂëÔÚ Windows98¡¢Delphi5.0 »·¾³Ïµ÷ÊÔͨ¹ý¡£
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if gdSelected in State then Exit;
//¶¨Òå±íÍ·µÄ×ÖÌåºÍ±³¾°ÑÕÉ«£º
    for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
    begin
      (Sender as TDBGrid).Columns[i].Title.Font.Name :='ËÎÌå'; //×ÖÌå
      (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //×ÖÌå´óС
      (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //×ÖÌåÑÕÉ«(ºìÉ«)
      (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //±³¾°É«(ÂÌÉ«)
    end;
//¸ôÐиıäÍø¸ñ±³¾°É«£º
  if Query1.RecNo mod 2 = 0 then
    (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //¶¨Òå±³¾°ÑÕÉ«
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //¶¨Òå±³¾°ÑÕÉ«
//¶¨ÒåÍø¸ñÏßµÄÑÕÉ«£º
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do //»­ cell µÄ±ß¿ò
  begin
    Pen.Color := $00ff0000; //¶¨Òå»­±ÊÑÕÉ«(À¶É«)
    MoveTo(Rect.L


Ïà¹ØÎĵµ£º

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......

Delphi 쵀RTTI

Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹ØÏµ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹ØÏµ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔ­Àí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½ ......

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......

Delphi bookmarkʹÓÃ

¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»    
  ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈǰָÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌØ±ðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º  
  ¡ñ&n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ