uform_apart_yj.pas

Delphi应用婚纱系统 Delphi应用婚纱系统

unit Uform_apart_yj;

interface

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

type
  Tform_apart_yj = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image2: TImage;
    Label3: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yesno:bool;
    tt:string;
  end;

var
  form_apart_yj: Tform_apart_yj;

implementation

{$R *.dfm}

procedure Tform_apart_yj.FormShow(Sender: TObject);
//初始化窗口数据
begin
   yesno:=false;
end;

procedure Tform_apart_yj.BitBtn2Click(Sender: TObject);
//关闭窗口
begin
   close;
end;

procedure Tform_apart_yj.BitBtn1Click(Sender: TObject);
//确认评语输入
begin
   tt:=trim(edit1.Text );
   yesno:=true;
   close ;
end;

end.