ugotorow.pas

利用DELPHI7来编写的一个记事本。不是非常的完善

unit uGotorow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TFrmGotorow = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BtnOK: TButton;
    BtnCancel: TButton;
    Image1: TImage;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    row : integer;
  end;

var
  FrmGotorow: TFrmGotorow;

implementation

uses uNotepad;

{$R *.dfm}

procedure TFrmGotorow.BtnOKClick(Sender: TObject);
var
  i : Longint;
begin
  if FrmNotepad.RichEdit.Lines.Count =0 then
    i := FrmNotepad.RichEdit.Lines.Count+1
  else
    i := FrmNotepad.RichEdit.Lines.Count;
  if Edit1.Text='' then
  begin
    application.MessageBox(pchar('行数超过范围'),'记事本 - 跳行',MB_OK);
    exit;
  end;
  if strtoint(Edit1.text)>i then
  begin
    application.MessageBox(pchar('行数超过范围'),'记事本 - 跳行',MB_OK);
    exit;
  end;
  FrmNotepad.row := strtoint(Edit1.text);//返回行数
  ModalResult := mrok;
end;

procedure TFrmGotorow.BtnCancelClick(Sender: TObject);
begin
  close;
end;

procedure TFrmGotorow.Edit1KeyPress(Sender: TObject; var Key: Char);//键盘事件，判断是否输入有效字符
begin
  if key = #13 then
    BtnOKClick(sender)
  else if ((key<#48) or (key>#57)) and (key<>#8) then
  begin
    key := #0 ;
    Image1.Visible := true;
    BtnCancel.Visible := false;
  end
  else
  begin
    Image1.Visible := false;
    BtnCancel.Visible := true;
  end
end;

procedure TFrmGotorow.Image1Click(Sender: TObject);
begin
  Image1.Visible := false;
  BtnCancel.Visible := true;
end;

end.