学用 TStringGrid [4] - ColWidths、RowHeights

最新推荐文章于 2023-11-29 10:43:09 发布

转载最新推荐文章于 2023-11-29 10:43:09 发布 · 72 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2008/03/05/1091898.html

本文介绍了一个简单的应用程序，通过四个按钮操作可以实现对表格中单元格宽度和高度的调整。该程序使用了 Delphi 开发环境，并提供了调整单元格宽度加倍、减半及高度加倍、减半的功能。

本例功能:
1、调整单元宽度;
2、调整单元高度.

运行效果图:

//本例代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{单元宽+}
procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元宽+';
  with StringGrid1 do
    ColWidths[Col] := ColWidths[Col] * 2;
end;

{单元宽-}
procedure TForm1.Button2Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元宽-';
  with StringGrid1 do
    ColWidths[Col] := ColWidths[Col] div 2;
end;

{单元高+}
procedure TForm1.Button3Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元高+';
  with StringGrid1 do
    RowHeights[Row] := RowHeights[Row] * 2;
end;

{单元高-}
procedure TForm1.Button4Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元高-';
  with StringGrid1 do
    RowHeights[Row] := RowHeights[Row] div 2;
end;

end.

转载于:https://www.cnblogs.com/del/archive/2008/03/05/1091898.html