学用 TStringGrid [4] - ColWidths、RowHeights

本例功能:
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.