filen.cpp

来自「一个仪器的核心程序,它控制通信等方面的工作.」· C++ 代码 · 共 65 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "filen.h"
#include "textcon.h"
#include "Html.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString	CurFileName;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ExitClick(TObject *Sender)
{
	Application->Terminate();
}
/*/---------------------------------------------------------------------------

void __fastcall TForm1::FilterComboBox1Change(TObject *Sender)
{
	FileListBox1->Mask  = FilterComboBox1->Mask;
} */
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
	FileListBox1->Mask  = FilterComboBox1->Mask;
} 
//---------------------------------------------------------------------------

void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
/*	//Edit2->Text = FileListBox1->FileName ;
	//Form2->Show;
    Form2 = new TForm2(Application);
    Form2->Caption = FileListBox1->FileName ;
    TForm2::Memo1->Lines->LoadFromFile(FileListBox1->FileName);
    Form2->ShowModal();
    delete Form2;
*/
    //TextCon.*TForm2::Memo1->Lines->LoadFromFile(FileListBox1->FileName);
    CurFileName = FileListBox1->FileName ;
    Form2->Caption = FileListBox1->FileName ;
	Form2->Show();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::AllClick(TObject *Sender)
{
	Form3->Show();
}
//---------------------------------------------------------------------------