zoukankan      html  css  js  c++  java
  • 学用 TStringGrid [5] FixedCols、FixedRows、Color、FixedColor

    本例运行效果图:


    //示例代码:
    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;
        Button5: TButton;
        Button6: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button6Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    {赋值}
    procedure TForm1.FormCreate(Sender: TObject);
    var
      i,j: Integer;
    begin
      with StringGrid1 do
        for i := 0 to ColCount - 1 do
          for j := 0 to RowCount - 1 do
            Cells[i,j] := Format('%d%d',[i,j]);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if StringGrid1.FixedCols < StringGrid1.ColCount-1 then
        StringGrid1.FixedCols := StringGrid1.FixedCols + 1;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      if StringGrid1.FixedCols > 0 then
        StringGrid1.FixedCols := StringGrid1.FixedCols - 1;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      if StringGrid1.FixedRows < StringGrid1.RowCount-1 then
        StringGrid1.FixedRows := StringGrid1.FixedRows + 1;
    end;
    
    procedure TForm1.Button4Click(Sender: TObject);
    begin
      if StringGrid1.FixedRows > 0 then
        StringGrid1.FixedRows := StringGrid1.FixedRows - 1;
    end;
    
    procedure TForm1.Button5Click(Sender: TObject);
    begin
      StringGrid1.Color := Random($FFFFFF);
    end;
    
    procedure TForm1.Button6Click(Sender: TObject);
    begin
      StringGrid1.FixedColor := Random($FFFFFF);
    end;
    
    end.
    
  • 相关阅读:
    linux下activemq安装与配置
    Linux设置开放一个端口
    使用codis-admin搭建codis集群
    elasticsearch7.0安装及配置优化
    ELK详细安装部署
    filebeat安装部署
    ElasticSearch-5.3.1集群环境搭建,安装ElasticSearch-head插件,安装错误解决
    手把手教你搭建一个 Elasticsearch 集群
    ES 集群管理(集群规划、集群搭建、集群管理)
    Elasticsearch如何关掉服务
  • 原文地址:https://www.cnblogs.com/del/p/1092123.html
Copyright © 2011-2022 走看看