델파이 StringGrid의 가운데 텍스트

Question

StringGrid (세로 및 가로) 셀의 가운데에 텍스트를 설정하는 방법을 알고 싶습니다. StringGrid의 캔버스를 사용하고 있습니다.

이

이 사람이 나를 도울 수 ... 델파이를 사용하고 있는데 나는 그것을 할 수있는 간단한 방법을 원한다?

Answer 1

일부 서식 기능이있는 DrawText API 함수를 사용할 수 있습니다.

간단한 예 :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
var 
    Grid: TStringGrid; 
begin 
    Grid := Sender as TStringGrid; 
    Grid.Canvas.FillRect(Rect); 
    DrawText(Grid.Canvas.Handle, Grid.Cells[ACol, ARow], 
      Length(Grid.Cells[ACol, ARow]), 
      Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); 
end;