zoukankan      html  css  js  c++  java
  • 学用 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.
    
  • 相关阅读:
    数组字符串
    return语句
    函数
    js流程控制语句
    js数据类型
    精进:如何成为一个很厉害的人---书摘(转)
    生成随机的数字和字母组合
    modelAndView重定向到外网
    mysql. 替换数据库中某个字段
    java中对于时间的处理
  • 原文地址:https://www.cnblogs.com/del/p/1091898.html
Copyright © 2011-2022 走看看