２重表示をなくすには？ (ID:40538)

名前

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

本文 Delphi５では、正常に表示されるのに、 同様のソースをDelphi2010で行うと、 文字が２重表示になるのは なぜでしょうか？ procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin (Sender as TStringGrid).Canvas.FillRect(Rect); DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]), Length((Sender as TStringGrid).Cells[ACol,ARow]), Rect, DT_SingleLine or DT_VCenter or DT_Center); end;