ThreadNGEdt.pas

   1 unit ThreadNGEdt;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, ExtCtrls;
   8
   9 type
  10   TThreadNGEdit = class(TForm)
  11     Panel1: TPanel;
  12     LstNgWord: TListBox;
  13     Panel2: TPanel;
  14     EdtNgWord: TEdit;
  15     BtnAdd: TButton;
  16     BtnUpd: TButton;
  17     BtnDel: TButton;
  18     BtnOk: TButton;
  19     BtnCancel: TButton;
  20     procedure FormCreate(Sender: TObject);
  21     procedure FormShow(Sender: TObject);
  22     procedure BtnAddClick(Sender: TObject);
  23     procedure BtnUpdClick(Sender: TObject);
  24     procedure BtnDelClick(Sender: TObject);
  25     procedure BtnOkClick(Sender: TObject);
  26     procedure LstNgWordClick(Sender: TObject);
  27   private
  28     { Private \90é\8c¾ }
  29   public
  30     { Public \90é\8c¾ }
  31   end;
  32
  33 var
  34   ThreadNGEdit: TThreadNGEdit;
  35
  36 implementation
  37
  38 uses BoardGroup;
  39
  40 {$R *.dfm}
  41
  42 procedure TThreadNGEdit.FormCreate(Sender: TObject);
  43 var
  44     CenterForm: TCustomForm;
  45 begin
  46     CenterForm := TCustomForm(Owner);
  47     if Assigned(CenterForm) then begin
  48         Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
  49         Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
  50     end else begin
  51         Left := (Screen.Width - Width) div 2;
  52         Top := (Screen.Height - Height) div 2;
  53     end;
  54 end;
  55
  56 procedure TThreadNGEdit.FormShow(Sender: TObject);
  57 begin
  58     LstNgWord.Items.Assign(ThreadNgList);
  59 end;
  60
  61 procedure TThreadNGEdit.LstNgWordClick(Sender: TObject);
  62 begin
  63     if (LstNgWord.ItemIndex >= 0) and (LstNgWord.ItemIndex < LstNgWord.Count) then
  64         EdtNgWord.Text := LstNgWord.Items.Strings[LstNgWord.ItemIndex];
  65 end;
  66
  67 procedure TThreadNGEdit.BtnAddClick(Sender: TObject);
  68 begin
  69     if (EdtNgWord.Text = '') then
  70         Application.MessageBox('\92Ç\89Á\82·\82é\92P\8cê\82ð\93ü\97Í\82µ\82Ä\82\82¾\82³\82¢\81B', PChar(Caption), MB_OK or MB_ICONERROR)
  71     else
  72         LstNgWord.Items.Add(EdtNgWord.Text);
  73 end;
  74
  75 procedure TThreadNGEdit.BtnUpdClick(Sender: TObject);
  76 begin
  77     if (EdtNgWord.Text = '') then begin
  78         Application.MessageBox('\8dX\90V\82·\82é\92P\8cê\82ð\93ü\97Í\82µ\82Ä\82\82¾\82³\82¢\81B', PChar(Caption), MB_OK or MB_ICONERROR);
  79         Exit;
  80     end;
  81     if (LstNgWord.ItemIndex < 0) or (LstNgWord.ItemIndex >= LstNgWord.Count) then
  82         Application.MessageBox('\8dX\90V\82·\82é\92P\8cê\82ð\91I\91ð\82µ\82Ä\82\82¾\82³\82¢\81B', PChar(Caption), MB_OK or MB_ICONERROR)
  83     else
  84         LstNgWord.Items.Strings[LstNgWord.ItemIndex] := EdtNgWord.Text;
  85 end;
  86
  87 procedure TThreadNGEdit.BtnDelClick(Sender: TObject);
  88 begin
  89     if (LstNgWord.ItemIndex < 0) or (LstNgWord.ItemIndex >= LstNgWord.Count) then
  90         Application.MessageBox('\8dí\8f\9c\82·\82é\92P\8cê\82ð\91I\91ð\82µ\82Ä\82\82¾\82³\82¢\81B', PChar(Caption), MB_OK or MB_ICONERROR)
  91     else
  92         LstNgWord.Items.Delete(LstNgWord.ItemIndex);
  93 end;
  94
  95 procedure TThreadNGEdit.BtnOkClick(Sender: TObject);
  96 begin
  97     ThreadNgList.Assign(LstNgWord.Items);
  98     ThreadNgList.Save;
  99
 100     ModalResult := mrOk;
 101 end;
 102
 103 end.