sendman.pas

来自「一个delphi编写的收发短信源码, 使用了Cport控件,很实用」· PAS 代码 · 共 129 行

unit SendMan;

interface

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

type
  TfrmSendMan = class(TForm)
    LBMan: TListBox;
    SBAdd: TSpeedButton;
    SBDel: TSpeedButton;
    SBExit: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    edName: TEdit;
    edPhone: TEdit;
    procedure SBDelClick(Sender: TObject);
    procedure SBAddClick(Sender: TObject);
    procedure SBExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edPhoneKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    ClickOK: Boolean;
    procedure LoadKeyNoList;
  public
    { Public declarations }
  end;

function Show_SendMan(var sList: TStrings): Boolean;

var
  frmSendMan: TfrmSendMan;

implementation

{$R *.dfm}

function Show_SendMan(var sList: TStrings): Boolean;
begin
  with TfrmSendMan.Create(nil) do
  begin
    ClickOK := False;
    LoadKeyNoList;
    try
      ShowModal;
    finally
      sList.AddStrings(LBMan.Items);      
      Result := ClickOK;
      Free;
    end;
  end;
end;

{ TfrmSendMan }

procedure TfrmSendMan.LoadKeyNoList;
var
  i: integer;
  TempStr: string;
begin
  TempStr := iniF.ReadString(KeyNoList, 'KeyNoList', '');
  if TempStr <> '' then
  begin
    LBMan.Items.Clear;
    for i := 1 to StrSubCount(TempStr, ',') + 1 do
    begin
      LBMan.Items.Add(GetsubStr(TempStr, i));
    end;
  end;
end;

procedure TfrmSendMan.SBDelClick(Sender: TObject);
var
  i: integer;
begin
  if LBMan.Items.Count > 0 then
  begin
    for i := 0 to LBMan.Items.Count - 1 do
    begin
      if LBMan.Selected[i] then
      begin
        LBMan.DeleteSelected;
        Break;
      end;
    end;
  end;
end;

procedure TfrmSendMan.SBAddClick(Sender: TObject);
begin
  edName.Text := Trim(edName.Text);
  edPhone.Text := Trim(edPhone.Text);
  if edName.Text = '' then
  begin
    Application.MessageBox('请输入联系人姓名！', '系统提示', MB_OK + MB_ICONWARNING);
    Exit;
  end;
  if edPhone.Text = '' then
  begin
    Application.MessageBox('请输入联系人手机号！', '系统提示', MB_OK + MB_ICONWARNING);
    Exit;
  end;
  LBMan.Items.Add(edName.Text + '-' + edPhone.Text);
  edName.Text := '';
  edPhone.Text := '';
end;

procedure TfrmSendMan.SBExitClick(Sender: TObject);
begin
  ClickOK := True;
  Close;
end;

procedure TfrmSendMan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmSendMan.edPhoneKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then Key := #0;
end;

end.