1 unit NewFavoriteFolder;
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
10 TNewFavoriteFolderDialog = class(TForm)
15 CancelButton: TButton;
17 procedure FolderEditChange(Sender: TObject);
18 procedure FormCreate(Sender: TObject);
26 NewFavoriteFolderDialog: TNewFavoriteFolderDialog;
35 procedure TNewFavoriteFolderDialog.FolderEditChange(Sender: TObject);
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;
42 ErrLabel.Caption := '';
45 procedure TNewFavoriteFolderDialog.FormCreate(Sender: TObject);
47 ErrLabel.Caption := '';