掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridについて (ID：47336)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>deldelさん、お返事ありがとうございます。 >ご教示いただいたgoRowSelectをTrueにしましたが >変化はありませんでした。 gdsThemed だと選択領域が見た目の変化がわかりにくいからかな？ type TStringGrid = class(vcl.Grids.TStringGrid) private public procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; end; procedure TStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); begin if gdSelected in AState then begin Canvas.Brush.Color := clYellow; Canvas.Font.Color := clBlack; end; inherited; end; procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.Options := StringGrid1.Options + [goRowSelect] - [goRangeSelect]; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.