unit2.~pas

不同串口之间发送消息,第一次做

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit1;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure RecvMsg1(var msg:TMyMessage); message 1;
  procedure RecvMsg2(var msg:TMyMessage); message 2;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.RecvMsg1(var msg:TMyMessage);
begin
    Edit1.Text := '';
    sleep(1000);
    Edit1.Text := msg.Msg_Str;
    self.SetFocus;
end;

procedure TForm2.RecvMsg2(var msg:TMyMessage);
begin
    Edit1.Text := '';
    // 陪ボ