informunit.pas

来自「用Delphi写的车牌字符各种特征提取实验系统」· PAS 代码 · 共 65 行

unit InformUnit;

interface

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

type
  TTextViewForm = class(TForm)
    ZTPanel: TPanel;
    GroupBox3: TGroupBox;
    StringGridLine: TStringGrid;
    GroupBox2: TGroupBox;
    RowStringGrid: TStringGrid;
    GroupBox6: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    EditH: TEdit;
    EditW: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    EditLTX: TEdit;
    EditLBX: TEdit;
    EditRTX: TEdit;
    EditRBX: TEdit;
    EditLTY: TEdit;
    EditLBY: TEdit;
    EditRTY: TEdit;
    EditRBY: TEdit;
    GroupBox4: TGroupBox;
    ListBoxL: TListBox;
    GroupBox8: TGroupBox;
    ListBoxR: TListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TextViewForm: TTextViewForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TTextViewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 TextForm.N2.Checked:=False;
end;

end.