ychatu28.pas

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

unit YchatU28;

interface

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

type
  TForm28 = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TspSkinComboBox;
    Memo1: TMemo;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox7: TCheckBox;
    Edit5: TEdit;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    Away: Boolean;
    { Public declarations }
  end;

var
  Form28: TForm28;

implementation

uses YchatU1;

{$R *.dfm}

procedure TForm28.RadioButton1Click(Sender: TObject);
begin
    // Label1.Enabled:=True;
     ComboBox1.Enabled:=True;
end;

procedure TForm28.RadioButton2Click(Sender: TObject);
begin
//  Label1.Enabled:=False;
  ComboBox1.Enabled:=False;
  Form1.AwayMsg(Form1.Richedit1,LoggedInName,RoomName,'is back');
end;

procedure TForm28.ComboBox1Change(Sender: TObject);
begin
 If ComboBox1.Text='Custom Away' Then
  Begin
   Form1.AwayMsg(Form1.Richedit1,LoggedInName,RoomName,'is away ('+Memo1.Text+')');
   Away:=True;
  End
    Else
  Begin
  If ComboBox1.Text='I''m Available' Then
   Begin
    Form1.AwayMsg(Form1.Richedit1,LoggedInName,RoomName,'is back ('+ComboBox1.Text+')');
    Away:=False;
   End
    else
   Begin
    Form1.AwayMsg(Form1.Richedit1,LoggedInName,RoomName,'is away ('+ComboBox1.Text+')');
    Away:=True;
   End;
  End;
end;

end.