Delphi DBgrid Wrap Word 내용

Question

Delphi (xe)에서 DB Width DBgrid Cell (높이)을 사용할 수 있습니까? 고정 된 열 너비와 여러 열이있는 dbgrid가 있고 일부 columuns에는 최대 100char가 있으며 열 너비를 변경하지 않고 해당 셀에 맞춰야합니다.

실마리를 만드는 방법은 무엇입니까?

감사합니다.

Answer 1

당신은 그것을하는 OwnerDraw해야하고, OnDrawCell 이벤트에서 셀에 입력 할 수있는 코드를 넣을 수 있습니다 :

procedure TForm4.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
Rect: TRect; State: TGridDrawState); 
begin 
Grid1.Canvas.TextRect(Rect, Rect.Left+1, Rect.Top+1, WrapText(Grid1.Cells[ACol,ARow], 40)); 
end;