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版的创建高权限进程

Delphi 封装frame到dll文件

Delphi record,两种声明方式

Delphi 实现类似windows的查找功能-遍历整个硬盘目录

Delphi时间相减函数

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi执行cmd命令

Delphi idhttp的用法

Delphi xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi获取千千静听歌词下载地址源码

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



打赏

取消

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

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

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

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

评论

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