Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/NewFavoriteFolder.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download) (as text)
Sat Aug 9 13:51:08 2003 UTC (20 years, 8 months ago) by hi_
Branch point for: MAIN, hi
File MIME type: text/x-pascal
Initial revision

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 宣言 }
21 public
22 { Public 宣言 }
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 := 'フォルダ名に「リンク」は使用出来ません';
40 OKButton.Enabled := False;
41 end else
42 ErrLabel.Caption := '';
43 end;
44
45 procedure TNewFavoriteFolderDialog.FormCreate(Sender: TObject);
46 begin
47 ErrLabel.Caption := '';
48 end;
49
50 end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26