unit2.pas

Barcode And LabelPrint

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, ExtCtrls, ToolWin, ComCtrls, StdCtrls, Grids;

type
  TGBKPForm2 = class(TGBKPForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    GroupBox1: TGroupBox;
    Panel9: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    StringGridOrder: TStringGrid;
    ComboBoxDevName: TComboBox;
    Bevel1: TBevel;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GBKPForm2: TGBKPForm2;

implementation

{$R *.dfm}

procedure TGBKPForm2.FormCreate(Sender: TObject);
var i:integer;
begin
  inherited;
With StringGridOrder do
    begin
        ColWidths[0]:=10;
        Cells[0,0]:='序号$$M';
        cells[1,0]:='名称与规格$$M';
        Cells[2,0]:='数量$$M';
        Cells[3,0]:='配置说明$$R';
     end;
 for i := 1 to StringGridOrder.RowCount-2 do
 begin
    Cells[i,0]:=inttostr(i);
 end;

end;

end.