u_generate4.pas

sybase大全

unit u_generate4;

interface

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

type
  Tf_form4 = class(TForm)
    btn_help: TButton;
    btn_back: TButton;
    btn_next: TButton;
    btn_cancel: TButton;
    Image1: TImage;
    r_left: TRadioButton;
    r_top: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Image2: TImage;
    Image3: TImage;
    Label3: TLabel;
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_backClick(Sender: TObject);
    procedure r_leftClick(Sender: TObject);
    procedure r_topClick(Sender: TObject);
    procedure btn_helpClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    action :smallint;
  end;

var
  f_form4: Tf_form4;

implementation

{$R *.DFM}

procedure Tf_form4.btn_cancelClick(Sender: TObject);
begin
  action:=3;
  close;
end;

procedure Tf_form4.btn_backClick(Sender: TObject);
begin
  action:=1;
  close;
end;

procedure Tf_form4.r_leftClick(Sender: TObject);
begin
  image1.picture:=image2.picture;
end;

procedure Tf_form4.r_topClick(Sender: TObject);
begin
  image1.picture:=image3.picture;
end;

procedure Tf_form4.btn_helpClick(Sender: TObject);
begin
  action:=0;
end;

procedure Tf_form4.btn_nextClick(Sender: TObject);
begin
  action:=2;
  f_form5.showmodal;
  if f_form5.action=3 then
  begin
    action:=3;
    close;
  end
  else
  if f_form5.action=4 then
  begin
    action:=4;
    close;
  end;
end;

end.