/p>
FormDialogCreateDir-> edNewDirName-> SetFocus ();
if (Result == true)
{
FormDialogCreateDir-> edNewDirName-> Text = "";
FormDialogCreateDir-> Hide ();
}
break;
case 27: FormDialogCreateDir-> edNewDirName-> Text = "";
FormDialogCreateDir-> edNewDirName-> SetFocus ();
FormDialogCreateDir-> Hide ();
break;
}
}
// --------------------------------------------- ------------------------------
Unit4.c
// --------------------------------------------- ------------------------------
# include
# pragma hdrstop
# include "Unit4.h"
# pragma package (smart_init)
# pragma resource "*. dfm"
TFormDialogDelete * FormDialogDelete;
# include "Unit2.h"
// --------------------------------------------- ------------------------------
__fastcall TFormDialogDelete :: TFormDialogDelete (TComponent * Owner)
: TForm (Owner)
{
}
// --------------------------------------------- ------------------------------
void __ fastcall TFormDialogDelete :: bCancelClick (TObject * Sender)
{
FormDialogDelete-> bRecycler-> SetFocus ();
FormDialogDelete-> Hide ();
}
// --------------------------------------------- ------------------------------
void __ fastcall TFormDialogDelete :: bDeleteClick (TObject * Sender)
{
Deleting (Panel, FO_DELETE);
FormDialogDelete-> bRecycler-> SetFocus ();
FormDialogDelete-> Hide ();
}
// --------------------------------------------- ------------------------------
void __ fastcall TFormDialogDelete :: bRecyclerClick (TObject * Sender)
{
Deleting (Panel, FO_DELETER);
FormDialogDelete-> bRecycler-> SetFocus ();
FormDialogDelete-> Hide ();
}
// --------------------------------------------- ------------------------------
[1] Якщо в описі функції немає вказівки, звідки вона викликається, значить вона викликається з інших модулів програми, тобто в функціях-обробниках подій. (Див. Додаток A). br/>