StreingGridにチェックボックスのようなもの (ID:38042)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 前にここで教えて貰った方法です。 カーソルがあるグリッドを黄色に塗りつぶすサンプルです。 ソフトから抽出してサンプルにしてみました。 ご参考までに・・・ あと、古いDelphi３で記述してますので、ColとRowをAColとARowに書き換える必要があるかも知れません。 var Form1: TForm1; sw1:boolean=false; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin sw1 := true; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); begin if sw1 then begin StringGrid1.canvas.Brush.Color := clYellow; StringGrid1.Canvas.FillRect(rect); StringGrid1.Canvas.Font.Color := clBlack; drawtext(StringGrid1.canvas.Handle, PChar(StringGrid1.cells[col,row]), Length(StringGrid1.cells[col,row]), rect,DT_LEFT);//WinAPIを使って、セルを正しく再描画 sw1 := false; end; end;