掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridで、任意のレコードのみ色を変えるには？ (ID：6244)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
例えば、 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var v: string; begin v := TDBGrid(Sender).DataSource.DataSet.FieldByName('Continent').AsString; if v='South America' then begin with TDBGrid(Sender) do begin Canvas.Brush.Color := clGreen; DefaultDrawColumnCell(Rect,DataCol,Column,State); end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Table1.DatabaseName := 'DBDEMOS'; Table1.TableName := 'country.db'; Table1.Active := True; DataSource1.DataSet := Table1; DBGrid1.DataSource := DataSource1; end; こんな感じではいかがでしょう？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.