smsreply.pas

来自「请使用Mobile FBUS——用来创建与NOKIA手机连接的软件的理想解决方案」· PAS 代码 · 共 50 行

unit SMSReply;

interface

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

type
  TfrmSMSView = class(TForm)
    lblDate: TLabel;
    lblFrom: TLabel;
    lblSMSDate: TLabel;
    moMessage: TMemo;
    lblSMSFrom: TLabel;
    btnReply: TButton;
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
    procedure btnReplyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSMSView: TfrmSMSView;

implementation

uses SendSMS;

{$R *.DFM}

procedure TfrmSMSView.btnCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSMSView.btnReplyClick(Sender: TObject);
begin
  Application.createform(TfrmSendSMS,frmSendSMS);
  frmSendSMS.txtDestination.text:=FilterNumber(lblSMSFrom.caption);
  frmSendSMS.mmoText.lines.clear;
  self.close;
  frmSendSMS.showmodal;
end;

end.