frmexplorp.~pas

来自「进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文」· ~PAS 代码 · 共 64 行

unit FrmExplorP;

interface

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

type
  TFrmExplor = class(TForm)
    im1: TImage;
    im2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BIm1: TImage;
    Blab1: TLabel;
    Blab2: TLabel;
    Bim2: TImage;
    Blab3: TLabel;
    Bim3: TImage;
    BLab4: TLabel;
    Bim4: TImage;
    Label4: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Pim1: TImage;
    PLab1: TLabel;
    PLab2: TLabel;
    PIm2: TImage;
    Pim3: TImage;
    PLab3: TLabel;
    PIm4: TImage;
    PLab4: TLabel;
    PIM5: TImage;
    PLab5: TLabel;
    PIM6: TImage;
    PLab6: TLabel;
    PLab7: TLabel;
    PIm7: TImage;
    PLab8: TLabel;
    PIM8: TImage;
    PIm9: TImage;
    PLab9: TLabel;
    TIm1: TImage;
    TLab1: TLabel;
    TLab2: TLabel;
    TIm2: TImage;
    TLab3: TLabel;
    TIm3: TImage;
    TLab4: TLabel;
    Tim4: TImage;
    TIm5: TImage;
    TLab5: TLabel;
    TIm6: TImage;
    TLab6: TLabel;
    procedure FormCreate(Sender: TObject);
    Procedure ButtImg(BFlag:Integer); //