unit3.~pas

飞思科技的书不错

unit Unit3;

interface

uses

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

type
  TForm_sex = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_sex: TForm_sex;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm_sex.Button1Click(Sender: TObject);
begin
    Hide;
    if RadioGroup1.ItemIndex=0 then
    Form1.DBEdit_Sex.Text:='男'
    else
    Form1.DBEdit_Sex.Text:='女';
end;

end.