Maintain bcb6 old program found SaveDialog a small bug:
If a file, click the SaveDiog1 list and input the file name again, then SaveDialog1CanClose event, SaveDiog1 - & gt; FileName or the mouse to click the file name, OpenDialog, too, do not have this problem with cb10.2 test,
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : Button1Click (TObject * Sender)
{
SaveDialog1 - & gt; The Execute ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : SaveDialog1CanClose (TObject * Sender,
Bool & amp; CanClose)
{
ShowMessage (" the selected file name: \ n "+ SaveDialog1 - & gt; FileName);//the FileName here or click on the name, whether later modify
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
I think of the solution is: SaveDialog1CanClose save operation, not only increase a can keep the judgment of the mark, the save operation in SaveDialog1 - & gt; The Execute (); After that,
CodePudding user response:
The Execute opens the Save As dialog, returning true when the user selects a file name and on the Save. If the user cancels the Save operation, the Execute returns a false value.If (SaveDialog1 - & gt; The Execute ())
Memo1 - & gt; Lines - & gt; SaveToFile (SaveDialog1 - & gt; FileName);
If judgment is not more convenient,
CodePudding user response: