如何让Stringgrid中的单元格的内容显示换行？

ray666 2004-09-16 04:29:53

如何让Stringgrid中的单元格的内容显示换行？

...全文

204 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ray666 2004-09-16

打赏
举报

回复

to: xiaoxiao197821
就是要这个效果！
thanks! everyone

luke5678 2004-09-16

打赏
举报

回复

//自动换行
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
DrawText(StringGrid1.Canvas.Handle,pchar(StringGrid1.Cells[Acol,Arow]),Length(StringGrid1.Cells[Acol,Arow]),Rect,DT_WORDBREAK or DT_LEFT);
end;

xiaoxiao197821 2004-09-16

打赏
举报

回复

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 1) and (ARow = 1) then
begin
StringGrid1.Canvas.Font.Size := 8;
StringGrid1.Canvas.TextOut(rect.Left+8,rect.Top,'str1');
StringGrid1.Canvas.TextOut(rect.Left+8,rect.Top + 11,'str2');
end;
end;

我们使用StringGrid时，经常需要将标题行居中对齐，其它行根据需要，文本左对齐或居中对齐，数字右对齐等。一、实现方法：使用 DrawCell 事件，//本函数实现各单元格的对齐,其中标题行居中; grdFileList为TStringGrid控件名。void __fastcall TForm1::grdFileListDrawCell(TObject *Sender, int AC

如何让Grid单元格中的内容超长时自动换行显示？收藏Ext的Grid在默认情况下，单元格中的内容超长时会显示成： XXXXX.....，省略号为未显示出来的内容，但在某些时候，我们需要让内容自动换行显示，可参考下面这种方法：写一个Rendererview plaincopy to clipboardprint?//呈现Grid单元格内容时，如果内容超长，则换行显示varrenderAu...

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);begin// if Key=#13 then begin With SGSubTitle do begin if Col begin Col:=Col+1; end else if Row begin Row:=Row+1; Col:=0; end

Delphi StringGrid控件组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=资料区之颜色; ●资料行列之宽高度： StringGrid.DefaultColWidth:=内定全部之宽度; StringGrid.Default...

StringGrid行列的增加和删除type TExCell = class(TStringGrid)public procedure DeleteRow(ARow: Longint); procedure DeleteColumn(ACol: Longint); procedure InsertRow(ARow: LongInt); procedure InsertColumn

5,392

社区成员

262,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章