?? grid.pas
字號:
unit grid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, te_controls;
type
TfrmGrid = class(TForm)
teForm1: TteForm;
teDrawGrid1: TteDrawGrid;
teStringGrid1: TteStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmGrid: TfrmGrid;
implementation
{$R *.DFM}
procedure TfrmGrid.FormCreate(Sender: TObject);
var
i, j: integer;
begin
for i := 0 to teStringGrid1.ColCount - 1 do
for j := 0 to teStringGrid1.RowCount - 1 do
teStringGrid1.Cells[i, j] := 'item ' + IntToStr(i) + ':' + IntToStr(j);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -