hmd.pas

通过串口发送多条短信的群发软件

unit hmd;

interface

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

type
  ThmdForm = class(TForm)
    hmdListView: TListView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hmdForm: ThmdForm;

implementation

uses newgroup;

{$R *.dfm}

procedure ThmdForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure ThmdForm.BitBtn1Click(Sender: TObject);
begin
  //未选择号码段
  if hmdListView.ItemIndex<0 then
  begin
    application.MessageBox('请选择一个号码段','提示',MB_OK);
    exit;
  end;

  //显示选中的号码段
  newgroupForm.qqwEdit.Text:=hmdListView.Selected.Caption;
  newgroupForm.groupnameEdit.Text:=hmdListView.Selected.Caption;
  
  close;
end;

end.