mailbox.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 189 行

unit mailbox;

interface

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

type
  TForm48 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Label1: TLabel;
    Panel2: TPanel;
    Memo1: TMemo;
    Panel3: TPanel;
    Label3: TLabel;
    Edit1: TEdit;
    Panel4: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    Button5: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form48: TForm48;

implementation

uses YchatU1;

{$R *.DFM}


procedure TForm48.ListBox1Click(Sender: TObject);
Var
 r,N: Integer;
 Tmp,FromName,ToName,TimeStamp,Msg: String;
begin
 R:=-1;
 For N:=ListBox1.Items.Count-1 downto 0 do
   If ListBox1.Selected[N]=True Then
     Begin
      R:=N;
      Break;
     End;

 If R<>-1 Then
  Begin
   Tmp:=ListBox1.Items[R];
   FromName:=Copy(Tmp,1,pos(',',Tmp)-1);
   Delete(Tmp,1,Length(FromName)+1);
   ToName:=Copy(Tmp,1,pos(',',Tmp)-1);
   Delete(Tmp,1,Length(ToName)+1);
   TimeStamp:=Copy(Tmp,1,pos(',',Tmp)-1);
   Delete(Tmp,1,Length(TimeStamp)+1);
   Msg:=Tmp;
   Edit1.Text:=FromName;
   Edit2.Text:=ToName;
   Memo1.Text:='Sent '+TimeStamp;
   Memo1.Lines.Add('');
   Memo1.Lines.Add('');
   Memo1.Lines.Add(Msg);
  End;
end;

procedure TForm48.FormCreate(Sender: TObject);
begin
// Timer1.interval:=(1000*60)*10;
// Timer1.interval:=(1000*10);
 If FileExists(Path+'mailbox.dat')=True Then
   ListBox1.Items.LoadFromFile(Path+'mailbox.dat');
end;

procedure TForm48.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ListBox1.Items.SaveToFile(Path+'mailbox.dat');
 Caption:='Mail Box';
end;

procedure TForm48.Button4Click(Sender: TObject);
Var
 r,N: Integer;
 Tmp,UName,TimeStamp,Msg: String;
begin
 R:=-1;
 For N:=ListBox1.Items.Count-1 downto 0 do
   If ListBox1.Selected[N]=True Then
     Begin
      R:=N;
      Break;
     End;

 If R<>-1 Then
  Begin
   IF MessageDlg('Are you sure you want to delete this message? ',MtConfirmation,[MBYes,MBNo],0)=IDYes Then
     ListBox1.Items.Delete(R);
   Edit1.Text:='';
   Edit2.Text:='';
   Memo1.Clear;
  End;
end;

procedure TForm48.Timer1Timer(Sender: TObject);
begin
{ If CheckBox1.Checked=True Then
  Begin
    Form48.Caption:='Mail Box - Checking Messages.... ';
    TmailDrop.Create('','','',True);
  End;}
end;

procedure TForm48.Button1Click(Sender: TObject);
Var
 ToUser,messagestr: String;
begin
 touser:=Edit1.Text;
 if InputQuery('Mail Drop Message: '+ToUser,'Message To User '+ToUser, messagestr) then
  if Length(messagestr) > 0 then
   Begin
    Caption:='Mail Box - Sending Mail, Please Wait...';
    TmailDrop.Create(touser,'',messagestr,False);
   End;
end;

procedure TForm48.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm48.Button5Click(Sender: TObject);
begin
 Form48.Caption:='Mail Box - Checking Messages.... ';
// Form1.Richedit1.Lines.Add('Checking Mail...');
 TmailDrop.Create('','','',True);
end;

procedure TForm48.Button3Click(Sender: TObject);
Var
 ToUser,messagestr: String;
begin
 InputQuery('To Who?:' ,'UserName To Send To: ', ToUser);
 If Trim(ToUser)='' Then Exit;

 if InputQuery('Mail Drop Message: '+ToUser,'Message To User '+ToUser, messagestr) then
  if Length(messagestr) > 0 then
   Begin
    Caption:='Mail Box - Sending Mail, Please Wait...';
    TmailDrop.Create(touser,'',messagestr,False);
   End;
end;

procedure TForm48.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
 r,N: Integer;
 Tmp,FromName,ToName,TimeStamp,Msg: String;
begin
 R:=-1;
 For N:=ListBox1.Items.Count-1 downto 0 do
   If ListBox1.Selected[N]=True Then
     Begin
      If Key=VK_Delete Then
        ListBox1.Items.Delete(N);
     End;
end;

end.