Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
MTMainForm.cpp
Package: ComPort.rar　[view]
Upload User: hbtlgg88
Upload Date: 2021-04-09
Package Size: 855k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

C++ Builder

MTMainForm.cpp：Code Content
  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. //---------------------------------------------------------------------------