inbox.pas

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

unit inbox;

interface

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

type
  TinboxForm = class(TForm)
    inboxListView: TListView;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    sm_contentMemo: TMemo;
    refleshSpeedButton: TSpeedButton;
    exitSpeedButton: TSpeedButton;
    deleteSpeedButton: TSpeedButton;
    procedure exitSpeedButtonClick(Sender: TObject);
    procedure refleshSpeedButtonClick(Sender: TObject);
    procedure inboxListViewSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure deleteSpeedButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inboxForm: TinboxForm;

implementation

uses other, smthread;

{$R *.dfm}

procedure TinboxForm.exitSpeedButtonClick(Sender: TObject);
begin
  close;
end;

procedure TinboxForm.refleshSpeedButtonClick(Sender: TObject);
begin
  //隐藏"更新"按钮
  refleshSpeedButton.Visible:=False;
  //清空列表
  inboxlistview.Clear;
  //清除显示的短信内容
  inboxlistview.ItemIndex:=-1;
end;

procedure TinboxForm.inboxListViewSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  if Selected then
  begin
    //使"更新"按钮可用
    if refleshSpeedButton.Visible then
      deleteSpeedButton.Enabled:=True;

    //显示短信内容
    sm_contentMemo.Lines.Text:=Item.SubItems.Strings[4];  
  end
  else
  begin
    //使"删除"按钮不可用
    deleteSpeedButton.Enabled:=False;
    //显示短信内容
    sm_contentMemo.Lines.Text:='';
  end;
end;

procedure TinboxForm.deleteSpeedButtonClick(Sender: TObject);
begin
  refleshSpeedButton.Enabled:=False;
  deleteSpeedButton.Enabled:=False;
  //设置当前要删除的短信的索引值
  delete_rec_index:=StrToInt(inboxlistview.Selected.Caption);
end;

end.