学用 TStringGrid [4] - ColWidths、RowHeights

最新推荐文章于 2023-11-29 10:43:09 发布

转载最新推荐文章于 2023-11-29 10:43:09 发布 · 209 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319464

本文探讨了80%的程序员难以成为架构师的原因，通过调整单元宽度和高度的示例代码，展示了在编程实践中如何进行有效的问题解决和设计思考，从而提升成为架构师的能力。

为什么80%的码农都做不了架构师？>>>

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

转载于:https://my.oschina.net/hermer/blog/319464