StringGridで複数行表示 (ID:39607)

名前

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

本文 Delphi2007から2010へ移行中です。 下記のように2007で正常に表示していたStringGridで複数行表示が 2010でうまく表示できません。 2行表示するのですが、2行目が1行目にも表示されてしまいます。 ＡＡＡＢＢＢ ＢＢＢ と表示される StringGrid1.Cells[0,VarRow] := 'ＡＡＡ' + #13 + 'ＢＢＢ'; procedure TYoteiIchiranForm.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var S : String; Options : Integer; begin StringGrid1.Canvas.FillRect(Rect); S := StringGrid1.Cells[ACol, ARow]; Rect.Left := Rect.Left + 2; Rect.Top := Rect.Top + 2; Options := DT_EDITCONTROL; DrawTextEx(StringGrid1.Canvas.Handle, PChar(S), Length(S), Rect, Options, nil); end;