smsreply.pas

Gestione Cellulari Nokia

unit SMSReply;

interface

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

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

var
  frmSMSView: TfrmSMSView;

implementation

uses SendSMS;

{$R *.DFM}

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

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

procedure TfrmSMSView.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  moMessage.free;
end;

end.