procedure TForm1.Button2Click(Sender: TObject);
begin
TextFormat := [tfSingleLine, tfCenter, tfVerticalCenter];
StringGrid1.Refresh;
TButton(Sender).Caption := '居中对齐';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
TextFormat := [tfSingleLine, tfRight, tfVerticalCenter];
StringGrid1.Refresh;
TButton(Sender).Caption := '右对齐';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
TextFormat := [tfSingleLine, tfLeft, tfVerticalCenter];
StringGrid1.Refresh;
TButton(Sender).Caption := '左对齐';
end;
stringgrid中字体的对齐
最新推荐文章于 2022-06-27 10:03:17 发布