くだすれDelphi(超初心者用)その46

195 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 20:49:51 ] DBGrid1のOnDrawColumnCellで、DBGrid1の上にUpDownを描くやり方で、UpDownでフィールドの値を変えることにチャレンジしています。 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const　Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin 　// DBGridをFColorDBGrid1とFColorDBGrid2の縞々にする。 　if　not　(gdSelected　in　State)　then 　begin 　　if　Table1.RecNo　mod　2=0　then 　　begin 　　　DBGrid1.Canvas.Brush.Color := FColorDBGrid1; 　　　DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 　　end　else 　　begin 　　　DBGrid1.Canvas.Brush.Color := FColorDBGrid2; 　　　DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);　 　　end; 　end;

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef