settingform.cpp

关于书籍《Borland c++Builder工程实践》的源代码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "SettingForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSettingForm *SettingForm;
//---------------------------------------------------------------------------
__fastcall TSettingForm::TSettingForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TSettingForm::SpeedButton1Click(TObject *Sender)
{
    //用户邮箱设置信息写入注册表
    MainForm->Registry->WriteString("Pop3SeverIP",txtPOP3Host->Text);
    MainForm->Registry->WriteString("Pop3Login",txtPOP3UserID->Text);
    MainForm->Registry->WriteString("Pop3Password",txtPOP3Password->Text);
    MainForm->Registry->WriteString("SmtpServerIP",txtSMTPHost->Text);
    MainForm->Registry->WriteString("SmtpLogin",txtSMTPUserID->Text);
    MainForm->Registry->WriteString("DisplayName",txtFromName->Text);
    MainForm->Registry->WriteString("EmailAddress",txtFromAddress->Text);

    Close();
}
//---------------------------------------------------------------------------