untmain.pas

少儿识字软件是根据网络上下载的版本进行了完善

unit Untmain;
interface
uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ActnList, Buttons, Menus,Spin,MMSystem, jpeg;
type
  TFrmmain = class(TForm)
    pnl1: TPanel;
    rg1: TRadioGroup;
    pnl2: TPanel;
    pnl3: TPanel;
    grp1: TGroupBox;
    cbb1: TComboBox;
    rg2: TRadioGroup;
    lbl2: TLabel;
    actlst1: TActionList;
    actman: TAction;
    actauto: TAction;
    tmr1: TTimer;
    dlgFontLBL: TFontDialog;
    img1: TImage;
    lbl1: TLabel;
    btn2: TSpeedButton;
    btn1: TSpeedButton;
    grp2: TGroupBox;
    se1: TSpinEdit;
    pm1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    pb1: TPaintBox;
    pb2: TPaintBox;
    img2: TImage;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cbb1Change(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure rg2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure lbl1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure se1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
   
    function showword:string;
    procedure Showword_lbl;
    { Private declarations }
  public
    wordfilename:string;
    strslist,wordlist:TStringList;
    wordrec:Integer;
    { Public declarations }
    procedure file_tostrslist;
  end;

var
  Frmmain: TFrmmain;
  yesbmp,nobmp:TBitmap ;