• ベストアンサー

delphiのStringGridで特定のcellの色を変える

delphiのStringGridで、指定したcellの色を変えることは出来るでしょうか? cells[5,5]だけ色が付いてる、みたいなイメージです。 初心者のためサンプルコードをご教示いただけると大変ありがたいです。

質問者が選んだベストアンサー

  • ベストアンサー
  • alioth
  • ベストアンサー率48% (13/27)
回答No.1

OnDrawCellに以下のようなコードを書くと背景が青になります。 詳しくは、イベントのOnDrawCellにフォーカスを当てて、F1キーでヘルプをだしてそれをみてください。例ものってます。 procedure TForm1.StringGrid1DrawCell(... begin if (ACol = 5) and (ARow =5) then begin StringGrid1.Canvas.Brush.Color := clBlue; StringGrid1.Canvas.FillRect(Rect); end; end;

methinks
質問者

お礼

サンプルコードありがとうございます。よくわかりました。 ヘルプはDelphi 6 Personalのせいか、F1キーを押してもOnDrawCellでは出てこないようでした。

関連するQ&A

  • delphi stringgrid

    Delphi StringGrid で 各セルごとにフォントの色や大きさを変えたりできますか?

  • Delphiでコンポーネントをfunctionから参照するには

    Delphiで例えば、StringGridのCellsプロパティをeventで呼ばれる procedureではなく自分で作ったfunctionで参照したり,更新したりできる 簡単な方法がありますか?

  • Delphi

    Delphi delphi初心者です。 ボタンを押すたびに、(0からはじめて)1ずつ足して、その値が空白(Edit1.Text)に 表示をしていくいくプログラムを作りたいのですが どうすればいいのでしょうか。 初期値の設定から、できるだけ簡単なコードを使って教えていただきたいです。 よろしくお願いします。

  • StringGrid1で画面におさまりきらない行をForm2から遠隔スクロールするには?

    Form1のStringGrid1で、画面におさまりきらない行を、Form2から次のようなやり方で遠隔スクロールさせたいのですがうまくいきません。目的の矩形 StringGrid1.Cells[ col, row ] をちゃんとselect しているはずなんですが、その行の位置が画面表示行よりも下方にあるために、それが見えないのです。御教示いただければありがたいのですが。 procedure TForm2.Next1Click(Sender: TObject); var R : TGridRect; begin with R do begin Left := Form1.StringGrid1.Col; Top :=Form1.StringGrid1.Row+1; Right := Form1.StringGrid1.Col; Bottom := Form1.StringGrid1.Row+1; end; Form1.StringGrid1.Selection := R; end;

  • Delphiについて

    Delphiを使い始めてちょっとの初心者ですが、 Imageコンポーネントなのですが、 プロパティのPictureを変えれば画像を表示できるのですが、 ソース中に書き込んで変える方法はないのでしょうか? Image1.Pricture := .... とこんな感じで変えられないでしょうか? その画像の拡張子は「.bmp」です。

  • delphi 画面のちらつき

    delphi6です imageに描画する時、ちらつきがでます。 doublebufferdを設定すると良いみたいなんですが、コードの記述のしかたがわかりません。 どなたかお救いを・・・

  • delphi6超初心者ですm(_ _)m

    ウインドウズソフト開発超初心者ですm(_ _)m システム手帳のようなものを作ってみたいとdelphi6をダウンロードしました。 まったく使い方がわからないので何か本で勉強しようと思ってますが、やりもって勉強できるような参考書はないでしょうか? イメージ図が多く乗った本ってありますか? またdelphiでなくこの言語(ソフト)で作った方がいいってものがありましたらご教授願います。 宜しくお願いします。

  • delphi マウスカーソル

    delphi6 です。 イメージエディタで作ったマウスカーソルを実際に使用する為のコード記述を教えて下さい。

  • すいません、delphi初心者です。

    すいません、delphi初心者です。 わかる方いましたら教えてください。 今小数点の計算を行っているのですが、整数以下の小数点の切り捨てのサンプルはよく見るのですが、第一 以降や、第2位以降の切り捨てなども設定できるものでしょうか?? すいません、わかる方いましたらご教授ください!! 宜しくお願いお致します。

  • (EXCEL)CELLの条件付き書式で色をつけたセルをカウントする。

    (EXCEL)CELLの条件付き書式で色をつけたセルをカウントしたいのですが、適切なVBAはありますか?私はVBAは初心者中の初心者です。よろしくお願いします。