Файловый менеджер
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ir::bCancelClick(TObject *Sender)
{
FormDialogCreateDir->edNewDirName->Text="";
FormDialogCreateDir->edNewDirName->SetFocus();
FormDialogCreateDir->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TFormDialogCreateDir::bOkClick(TObject *Sender)
{
bool Result=CreateFolder(Panel);
FormDialogCreateDir->edNewDirName->SetFocus();
if (Result==true)
{
FormDialogCreateDir->edNewDirName->Text="";
FormDialogCreateDir->Hide();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormDialogCreateDir::edNewDirNameKeyDown(TObject *Sender,
WORD &Key, TShiftState Shift)
{
bool Result;
switch (Key)
{
case 13: Result=CreateFolder(Panel);
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();
}
//---------------------------------------------------------------------------