unit15.pas

试卷生成系统 delphi 试卷生成系统 试卷生成系统

unit Unit15;

interface

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

type
  Txzsel = class(TForm)
    sel: TRadioGroup;
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    selgeren: TRadioButton;
    selquanti: TRadioButton;
    procedure selgerenClick(Sender: TObject);
    procedure selquantiClick(Sender: TObject);
  
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xzsel: Txzsel;

implementation
uses unit14, Unit11,unit10;
{$R *.dfm}

procedure Txzsel.selgerenClick(Sender: TObject);

var
no:string;
begin
if selgeren.Checked =true then
 begin
 selchengji.Show;
 xzsel.close ;
 selgeren.Checked :=false;
 end;


 
end;

procedure Txzsel.selquantiClick(Sender: TObject);
var
no:string;
begin


end;


end.