ychatu25.pas

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

unit YchatU25;

interface

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

type
  TForm25 = class(TForm)
    ListBox1: TListBox;
    PopupMenu1: TPopupMenu;
    ShowMessageToRoom1: TMenuItem;
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ShowMessageToRoom1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation

{$R *.dfm}

procedure TForm25.ListBox1DblClick(Sender: TObject);
Var
 N: Integer;
begin
If ListBox1.Items.Count=-1 Then Exit;
  For N:=ListBox1.Items.Count-1 downto 0 do
   Begin
     If ListBox1.Selected[N]=True Then
      Begin
         ShowMessage(ListBox1.Items[N]+' Said: '+SaidYourName[N].What);
      End;
   End;
end;

procedure TForm25.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form25.ListBox1.Clear;
end;

procedure TForm25.ShowMessageToRoom1Click(Sender: TObject);
Var
 N: Integer;
begin
  For N:=ListBox1.Items.Count-1 downto 0 do
     If ListBox1.Selected[N]=True Then
          Form1.Say(Form1.Richedit1,ListBox1.Items[N]+' Said: '+SaidYourName[N].What,False,False,False);
end;

end.