unit AddUnit;

interface

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

type
  TAddFrm = class(TForm)
    lbl_caption: TLabel;
    lbl_info: TLabel;
    sedt_caption: TEdit;
    srb_borther: TRadioButton;
    srb_son: TRadioButton;
    btn_ok: TButton;
    btn2: TButton;
    Button1: TButton;
    procedure sbtn_OkClick(Sender: TObject);
    procedure sbtn_CancelClick(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddFrm: TAddFrm;

implementation
Uses Main;
{$R *.dfm}

procedure TAddFrm.sbtn_OkClick(Sender: TObject);
var
  i:integer;
begin
  if Trim(sedt_caption.Text) ='' then
  begin
    MessageBox(Handle,'名称不能为空，请重试','提示',MB_OK + MB_ICONERROR);
    Exit;
  end;
  if Caption='新建课题' then
  begin
    for i:=0 to MainFrm.scbb_Subject.Items.Count -1 Do
    begin
      if Trim(sedt_caption.Text)=Trim(MainFrm.scbb_Subject.Items[i]) then
      begin
        MessageBox(handle,'已经存在相同名字的课题了，请换个名字重试','提示',MB_OK + MB_ICONERROR);
        Exit;
      end;
    end;
  end;
  ModalResult:=mrOk;
end;

procedure TAddFrm.sbtn_CancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

procedure TAddFrm.btn2Click(Sender: TObject);
begin
ModalResult:=mrCancel;
end;

procedure TAddFrm.Button1Click(Sender: TObject);
begin
sedt_caption.PasteFromClipboard;
end;

procedure TAddFrm.btn1Click(Sender: TObject);
var      
  i:integer;
begin
  if Trim(sedt_caption.Text) ='' then
  begin
    MessageBox(Handle,'名称不能为空，请重试','提示',MB_OK + MB_ICONERROR);
    Exit;
  end;
  if Caption='新建课题' then
  begin
    for i:=0 to MainFrm.scbb_Subject.Items.Count -1 Do
    begin
      if Trim(sedt_caption.Text)=Trim(MainFrm.scbb_Subject.Items[i]) then
      begin
        MessageBox(handle,'已经存在相同名字的课题了，请换个名字重试','提示',MB_OK + MB_ICONERROR);
        Exit;
      end;
    end;
  end;
  ModalResult:=mrOk;

end;

end.