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

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

Delphi控件源码

开发平台：

C++ Builder

MTMainForm.pas：源码内容
  1. unit MTMainForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   CPort, StdCtrls, CPortCtl, ExtCtrls;
  9. type
  10.   TMainForm = class(TForm)
  11.     Panel: TPanel;
  12.     ComTerminal: TComTerminal;
  13.     ConnButton: TButton;
  14.     ComPort: TComPort;
  15.     PortButton: TButton;
  16.     TermButton: TButton;
  17.     FontButton: TButton;
  18.     TerminalReady: TComLed;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     ComLed1: TComLed;
  22.     procedure ConnButtonClick(Sender: TObject);
  23.     procedure ComPortAfterOpen(Sender: TObject);
  24.     procedure ComPortAfterClose(Sender: TObject);
  25.     procedure PortButtonClick(Sender: TObject);
  26.     procedure TermButtonClick(Sender: TObject);
  27.     procedure FontButtonClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   MainForm: TMainForm;
  37. implementation
  39. {$R *.DFM}
  41. procedure TMainForm.ConnButtonClick(Sender: TObject);
  42. begin
  43.   ComTerminal.Connected := not ComTerminal.Connected;
  44. end;
  46. procedure TMainForm.ComPortAfterOpen(Sender: TObject);
  47. begin
  48.   ConnButton.Caption := 'Disconnect';
  49. end;
  51. procedure TMainForm.ComPortAfterClose(Sender: TObject);
  52. begin
  53.   ConnButton.Caption := 'Connect';
  54. end;
  56. procedure TMainForm.PortButtonClick(Sender: TObject);
  57. begin
  58.   ComPort.ShowSetupDialog;
  59. end;
  61. procedure TMainForm.TermButtonClick(Sender: TObject);
  62. begin
  63.   ComTerminal.ShowSetupDialog;
  64. end;
  66. procedure TMainForm.FontButtonClick(Sender: TObject);
  67. begin
  68.   ComTerminal.SelectFont;
  69. end;
  71. end.