开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MTMainForm.cpp
资源名称：ComPort.rar　[点击查看]
上传用户：hbtlgg88
上传日期：2021-04-09
资源大小：855k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

C++ Builder

MTMainForm.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "MTMainForm.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TMainForm *MainForm;
  10. //---------------------------------------------------------------------------
  11. __fastcall TMainForm::TMainForm(TComponent* Owner)
  12.   : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TMainForm::ConnButtonClick(TObject *Sender)
  17. {
  18.   ComTerminal->Connected = !ComTerminal->Connected;
  19. }
  20. //---------------------------------------------------------------------------
  22. void __fastcall TMainForm::ComPortAfterOpen(TObject *Sender)
  23. {
  24.   ConnButton->Caption = "Disconnect";
  25. }
  26. //---------------------------------------------------------------------------
  28. void __fastcall TMainForm::ComPortAfterClose(TObject *Sender)
  29. {
  30.   ConnButton->Caption = "Connect";
  31. }
  32. //---------------------------------------------------------------------------
  34. void __fastcall TMainForm::PortButtonClick(TObject *Sender)
  35. {
  36.   ComPort->ShowSetupDialog();
  37. }
  38. //---------------------------------------------------------------------------
  40. void __fastcall TMainForm::TermButtonClick(TObject *Sender)
  41. {
  42.   ComTerminal->ShowSetupDialog();
  43. }
  44. //---------------------------------------------------------------------------
  46. void __fastcall TMainForm::FontButtonClick(TObject *Sender)
  47. {
  48.   ComTerminal->SelectFont();
  49. }
  50. //---------------------------------------------------------------------------