www.pudn.com > fbdelphisw > SMSReply.pas

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.