Delphi StringGrid 实例3: 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.


本文整理自网络,侵删。

 
StringGrid 实例3: 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.
实例3:

本例功能:
1、修改 TStringGrid的默认宽与高;
2、添加行;
3、确认当前单元并赋值.

实例图形:



unit Unit12;

 

interface

 

uses

 System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,

 System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Grid,

 FMX.Layouts;

 

type

 TForm12 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    StringColumn1: TStringColumn;
    StringColumn2: TStringColumn;
    StringColumn3: TStringColumn;
    StringColumn4: TStringColumn;
    StringColumn5: TStringColumn;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

 private
    { Private declarations }
 public
    { Public declarations }
 end;

var

 Form12: TForm12;
implementation

{$R *.fmx}
{修改表格的宽度和行高}

procedure TForm12.Button1Click(Sender: TObject);
begin
     StringGrid1.Width:= 500;
     StringGrid1.RowHeight := 18;
     TButton(Sender).Text := '宽与高';
end;

 procedure TForm12.Button2Click(Sender: TObject);
 {添加一行}
begin
     StringGrid1.RowCount := StringGrid1.RowCount + 1;
     TButton(Sender).Text:= '加一行';
end;
{添加一列:addItem}
{所有单元}    
procedure TForm12.Button3Click(Sender: TObject);
var
     c,r: Integer;
begin
     for c := 0 to StringGrid1.ColumnCount - 1 do
        for r := 0 to StringGrid1.RowCount - 1 do
             StringGrid1.Cells[c,r] := Format('列:%d,行:%d', [c,r]);
end;

end.

来源:https://www.cnblogs.com/lingzhiwen/p/3322566.html

相关阅读 >>

Delphi 限制form窗体为固定的大小

Delphi 提取字符中的数字

Delphi窗体自适应分辨率

Delphi 一句话获取文件的最新修改时间

Delphi http协议验证访问datasnap rest 服务器

Delphi 下载函数

Delphi tstringlist 文本文件拼接

Delphi adoconnection连接 sqlserver

Delphi获取exe文件版本信息的函数

Delphi判断程序是否无响应

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...