掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridで選択されたセルの背景色を変えるには (ID:17626)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。よらんと申します。 さて件名の件ですが、 StringGrid内で選択されたセルの背景色を変えたいと思っています。 現状では、Onclickで現在の位置を取得しDrowイベントで描写を行う といった感じでやってますが、これだとマウスクリック時では色が かわりません。矢印キーで移動させたときのみ変更されます。 これをマウスでクリックしたときでも同じように描写したいと 思っています。 よろしくお願いいたします。 [現状のソース] var GCol :Integer; //グローバルStringGrid位置判定用 GRow :Integer; //グローバルStringGrid位置判定用 procedure TfmMenu.StringGrid1Click(Sender: TObject); begin GCol:=TStringgrid(Sender).Col; GRow:=TStringgrid(Sender).Row; end; procedure TfmMenu.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var x:integer; y:integer; begin x := 2; y := 2; if ( Arow =GRow ) and ( Acol = GCol ) then begin with Stringgrid1.canvas do begin Brush.Color :=clHighlight; FillRect(Rect); Font.color:=clWhite; Font.Size:=16; TextOut(Rect.Left + y,Rect.Top + x, Stringgrid1.Cells[ACol,ARow]); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.