: ... 100 Delphi5
-
: , , , ..
Delphi , , . Dialogs. 1 . Dialogs
.
- | ||
OpenDialog | . | |
SaveDialog | . | |
OpenPictureDialog | , . Delphi 3. | |
FontDialog | . | |
ColorDialog | . |
, . , Windows . -. , Windows , .
, , Execute. , - , true. - , . Esc, Execute false. :
if < ->.Execute then <, >;OpenDialog, SaveDialog, OpenPictureDialog, SavePictureDialog
OpenDialog SaveDialog ..., , , . . 1 2.
. 1
. 2
, . , , FileName. . (. . 1, 2).
|
|
, (. 1, 2), Filter. , . , . 3. Filter Name , . Filter . . 3 : .txt .doc *.*.
. 3
Filter :
(*.txt, *.doc)|*.txt; *.doc| |*.*. , , Filter .
FilterIndex , . , FilterIndex = 1 .
InitialDir , . , , .
DefaultExt . , . DefaultExt, . .
Title . , , (, . 1). , . , .
Options . , , :
ofAllowMultiSelect | |
ofCreatePrompt | , , , |
ofEnableIncludeNotify | |
ofEnableSizing | |
ofExtensionDifferent | , , , , , DefaultExt |
ofFileMustExist | , , |
ofHideReadOnly | |
ofNoChangeDir | OK , , |
ofNoDereferenceLinks | |
ofNoLongNames | 8 |
ofNoNetworkButton | . ofOldStyleDialog |
ofNoReadOnlyReturn | , |
ofNoTestFileCreate | |
ofNoValidate | , |
ofOldStyleDialog | (. . 4) |
ofOverwritePrompt | , , , , |
ofPathMustExist | , |
ofReadOnly | |
ofShareAware | , , |
ofShowHelp |
|
|
, ofHideReadOnly, . , , .
ofAllowMultiSelect , Files TStrings.
, 32- Delphi. Delphi 1 , . 4. 32- Delphi ofOldStyleDialog. . 4 Title . , ofHideReadOnly ( Delphi 1 ), .
. 4 ofOldStyleDialog ofHideReadOnly
. , , , , . OnCanClose . , Esc .. OnCanClose . OnCanClose , , false CanClose. .
OnFolderChange , OnSelectionChange , OnTypeChange . - .
OpenDialog SaveDialog. Memo1, , - , , , ... .
OpenDialog SaveDialog. , OpenDialog1 SaveDialog1. , , , , , FName:
|
|
:
if OpenDialog1.Execute then begin FName:= OpenDialog1.FileName; Memo1.Lines.LoadFromFile(FName); end;
, , ( , Execute true), (OpenDialog1.FileName) FName Memo1 LoadFromFile.
Memo1.Lines.SaveToFile(FName);
- , : FName.
... :
SaveDialog1.FileName:= FName;
if SaveDialog1.Execute then begin FName:= SaveDialog1.FileName; Memo1.Lines.SaveToFile(FName); end;FileName SaveDialog1 . .... , , Memo1.
. Delphi 3 : OpenPictureDialog SavePictureDialog. , , . 5 6. , OpenDialog SaveDialog (. 1, 2), .
. 5
. 6
OpenPictureDialog SavePictureDialog OpenDialog SaveDialog. Filter OpenPictureDialog SavePictureDialog. :
All (*.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf) | *.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf |
JPEG Image File (*.jpg) | *.jpg |
JPEG Image File (*.jpeg) | *.jpeg |
Bitmaps (*.bmp) | *.bmp |
Icons (*.ico) | *.ico |
Enhanced Metafiles (*.emf) | *.emf |
Metafiles (*.wmf) | *.wmf |
, . , , , , , , (*.*) .