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.
    
  • 相关阅读:
    开发中遇到的问题点
    ThreadLocal
    Java多线程10:join()方法
    Java多线程9:中断机制
    Java多线程8:wait()和notify()/notifyAll()
    Java多线程7:死锁
    Java多线程0:核心理论
    MySQL中and和or的优先级的问题
    Java多线程6:Synchronized锁代码块(this和任意对象)
    shiro英语
  • 原文地址:https://www.cnblogs.com/del/p/1091898.html
Copyright © 2011-2022 走看看