ychatu40.pas

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

unit YchatU40;

interface

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

type
  TForm36 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form36: TForm36;

implementation

{$R *.dfm}

procedure TForm36.Button1Click(Sender: TObject);
begin
 Form36.Memo1.Lines.SaveToFile(Path+'RtfImages\smileyref.txt');
end;

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

procedure TForm36.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form36.Memo1.Lines.SaveToFile(Path+'RtfImages\smileyref.txt');
 Form1.CleanSmileyFile(path+'rtfimages\smileyref.txt');
 Form1.ExtractSmileyList;
end;

end.