掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Stringgridについて (ID：25181)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
MouseDown の最後に、 Stringgrid1.Refresh; DrawCell はちょっと変えてますが、以下のような感じで with TStringGrid(Sender).Canvas do begin if not (gdFixed in State) then begin if (ACol = 5) and (TStringGrid(Sender).Cells[ACol, ARow] = aa) then begin Brush.Color := clYellow; Font.Color:=clRed; end else begin Brush.Color := clWhite; Font.Color:=clBlack; end; end; TextRect(Rect, Rect.Left + 4,Rect.Top + 4, TStringGrid(Sender).Cells[ACol, ARow]); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.