togaut.pas

源代码竟供大家参考

unit togaut;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids;

type
  Tf_TogAut = class(TForm)
    AuthorInfo: TStringGrid;
    ok: TButton;
    procedure okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_TogAut: Tf_TogAut;

implementation

{$R *.DFM}


procedure Tf_TogAut.okClick(Sender: TObject);
begin
  f_togaut.Close;
end;

procedure Tf_TogAut.FormShow(Sender: TObject);
begin
  AuthorInfo.Cells[0,0]:='姓名';
  AuthorInfo.Cells[1,0]:='添加代码';
  AuthorInfo.Cells[2,0]:='电子邮件';
  AuthorInfo.Cells[3,0]:='主页';

  AuthorInfo.Cells[0,1]:='杨媛媛';
  AuthorInfo.Cells[1,1]:='GB码=>BIG5码的转换';
  AuthorInfo.Cells[2,1]:='[e-mail]';

  AuthorInfo.Cells[0,2]:='Luzhuo';
  AuthorInfo.Cells[1,2]:='建议：行距加倍（更正）';
  AuthorInfo.Cells[2,2]:='[e-mail]';
  AuthorInfo.Cells[3,2]:='';

  AuthorInfo.Cells[0,3]:='Luzhuo';
  AuthorInfo.Cells[1,3]:='建议：添加下划线';
  AuthorInfo.Cells[2,3]:='[e-mail]';
  AuthorInfo.Cells[3,3]:='';

  AuthorInfo.Cells[0,4]:='Luzhuo';
  AuthorInfo.Cells[1,4]:='建议：全屏显示';
  AuthorInfo.Cells[2,4]:='[e-mail]';
  AuthorInfo.Cells[3,4]:='';
  
end;

end.