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.
    
  • 相关阅读:
    每天一道leetcode 搜索旋转排序数组(二分法)
    每天一道leetcode 统计重复个数(循环节)
    python3 简单web目录扫描脚本(后续更新完整)
    每天一道leetcode 盛最多水的容器 (双指针)
    python3 语法学习 类和继承
    python3 语法学习 文件操作及os方法
    python3 语法学习 输入输出美观
    TCP/IP 协议:IP 协议
    TCP/IP 协议:链路层概述
    Http权威指南(二)---读书笔记
  • 原文地址:https://www.cnblogs.com/del/p/1092123.html
Copyright © 2011-2022 走看看