ychatu50.pas

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

unit YchatU50;

interface

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

type
  TForm46 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    Bn: Integer;
    Bt: Tobject;
    { Public declarations }
  end;

var
  Form46: TForm46;

implementation

uses YchatU1;

{$R *.dfm}

procedure TForm46.BitBtn1Click(Sender: TObject);
begin
  IF Edit1.Text<>'' Then
   Begin
     Form1.SaveButtonInfo(Bn,'Name',Edit1.Text);
     Form1.SaveButtonInfo(Bn,'Command',Memo1.Text);
     If CheckBox1.Checked=True Then
        Form1.SaveButtonInfo(BN,'CR','True')
         else
        Form1.SaveButtonInfo(BN,'CR','False');
     TButton(BT).Caption:=IntToStr(BN)+'.'+Edit1.Text;
     Close;
   End;
end;

procedure TForm46.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm46.FormShow(Sender: TObject);
begin
 Edit1.Text:='';
 Memo1.Text:='';
 Edit1.Text:=Form1.LoadButtonInfo(IntToStr(BN),'Name',IntToStr(BN));
 Memo1.Text:=Form1.LoadButtonInfo(IntToStr(BN),'Command','');
end;

end.