www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_edit_d2.pas

unit Uform_edit_d2; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, Buttons; 
 
type 
  Tform_edit_d2 = class(TForm) 
    Panel1: TPanel; 
    Image1: TImage; 
    Bevel2: TBevel; 
    Bevel3: TBevel; 
    Image2: TImage; 
    Label1: TLabel; 
    BitBtn2: TBitBtn; 
    BitBtn3: TBitBtn; 
    BitBtn4: TBitBtn; 
    procedure FormShow(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn3Click(Sender: TObject); 
    procedure BitBtn4Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    yesno:boolean; 
    value:boolean; 
  end; 
 
var 
  form_edit_d2: Tform_edit_d2; 
 
implementation 
 
{$R *.dfm} 
 
procedure Tform_edit_d2.FormShow(Sender: TObject); 
begin 
   yesno:=false; 
   if value=true then 
   begin 
       bitbtn3.Enabled :=true; 
       bitbtn4.Enabled :=false; 
   end 
   else 
   begin 
      bitbtn3.Enabled :=false; 
       bitbtn4.Enabled :=true; 
   end; 
end; 
 
procedure Tform_edit_d2.BitBtn2Click(Sender: TObject); 
begin 
   close; 
end; 
 
procedure Tform_edit_d2.BitBtn3Click(Sender: TObject); 
begin 
   value:=false; 
   yesno:=true; 
   close; 
end; 
 
procedure Tform_edit_d2.BitBtn4Click(Sender: TObject); 
begin 
   value:=true; 
   yesno:=true; 
   close; 
end; 
 
end.