NewFavoriteFolder.pas

   1 unit NewFavoriteFolder;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls;
   8
   9 type
  10   TNewFavoriteFolderDialog = class(TForm)
  11                 Label1: TLabel;
  12                 Label2: TLabel;
  13                 FolderEdit: TEdit;
  14                 OKButton: TButton;
  15                 CancelButton: TButton;
  16                 ErrLabel: TLabel;
  17                 procedure FolderEditChange(Sender: TObject);
  18     procedure FormCreate(Sender: TObject);
  19         private
  20                 { Private \90é\8c¾ }
  21         public
  22                 { Public \90é\8c¾ }
  23         end;
  24
  25 var
  26         NewFavoriteFolderDialog: TNewFavoriteFolderDialog;
  27
  28 implementation
  29
  30 uses
  31         Favorite;
  32
  33 {$R *.dfm}
  34
  35 procedure TNewFavoriteFolderDialog.FolderEditChange(Sender: TObject);
  36 begin
  37         OKButton.Enabled := Length(FolderEdit.Text) <> 0;
  38         if Trim(FolderEdit.Text) = Favorite.FAVORITE_LINK_NAME then begin
  39                 ErrLabel.Caption := '\83t\83H\83\8b\83_\96¼\82É\81u\83\8a\83\93\83N\81v\82Í\8eg\97p\8fo\97\88\82Ü\82¹\82ñ';
  40                 OKButton.Enabled := False;
  41         end else
  42                 ErrLabel.Caption := '';
  43 end;
  44
  45 procedure TNewFavoriteFolderDialog.FormCreate(Sender: TObject);
  46 var
  47     CenterForm: TCustomForm;
  48 begin
  49     CenterForm := TCustomForm(Owner);
  50     if Assigned(CenterForm) then begin
  51         Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
  52         Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
  53     end else begin
  54         Left := (Screen.Width - Width) div 2;
  55         Top := (Screen.Height - Height) div 2;
  56     end;
  57
  58         ErrLabel.Caption := '';
  59 end;
  60
  61 end.