taskinfo.pas

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

unit taskinfo;

interface

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

type
  Ttask_infoForm = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    Label1: TLabel;
    mobile_tel_accountLabel: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Panel3: TPanel;
    send_account_blLabel: TLabel;
    error_send_account_blLabel: TLabel;
    not_send_account_blLabel: TLabel;
    send_accountLabel: TLabel;
    error_send_accountLabel: TLabel;
    not_send_accountLabel: TLabel;
    smMemo: TMemo;
    Label15: TLabel;
    send_userListView: TListView;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  task_infoForm: Ttask_infoForm;

implementation

{$R *.dfm}

procedure Ttask_infoForm.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure Ttask_infoForm.SpeedButton1Click(Sender: TObject);
begin
  if Panel2.Visible then
  begin
    Panel2.Visible:=false;
    Panel3.Visible:=true;
  end
  else if Panel3.Visible then
  begin
    Panel2.Visible:=true;
    Panel3.Visible:=false;
  end

end;

end.