Delphi: automatic color change of the selected row of DBGrid

You must first triggerOndrawcolumncellEvent:

Reference: http://blog.csdn.net/kunshan_shenbin/archive/2010/07/29/5773565.aspx

 

Unit unit1; </P> <p> interface </P> <p> uses <br/> Windows, messages, sysutils, classes, graphics, controls, forms, dialogs, <br/> grids, dbgrids, DB, dbtables; </P> <p> type <br/> tcustomdbgridcracker = Class (tcustomdbgrid ); // do not forget to write </P> <p> tform1 = Class (tform) <br/> Table1: tTable; <br/> performance1: tdatasource; <br/> dbgrid1: TDBGrid; <br/> procedure dbgrid1drawcolumncell (Sender: tobject; const rect: trect; <br/> datacol: integer; column: tcolumn; State: tddgrirawstate ); <br/> private <br/> {private Declarations} <br/> Public <br/> {public declarations} <br/> end; </P> <p> var <br/> form1: tform1; </P> <p> Implementation </P> <p> {$ R *. DFM} </P> <p> procedure tform1.dbgrid1drawcolumncell (Sender: tobject; const rect: trect; <br/> datacol: integer; column: tcolumn; State: tgriddrawstate ); <br/> begin <br/> with tcustomdbgridcracker (sender) DO <br/> begin <br/> If datalink. activerecord = row-1 then <br/> canvas. brush. color: = clred <br/> else <br/> canvas. brush. color: = clwhite; <br/> defaultdrawcolumncell (rect, datacol, column, State); <br/> end; </P> <p> end.

 

 

Other references:

Http://gaowenjie7758.blog.163.com/blog/static/594678892008119102338896/