ychatu49.pas

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

unit YchatU49;

interface

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

type
  TForm45 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form45: TForm45;

implementation

{$R *.dfm}

procedure TForm45.Button1Click(Sender: TObject);
Var
 NObject: TObject;
begin

 If NeverIgnore.IndexOf(Edit1.Text)=-1 Then
    NeverIgnore.Add(Edit1.TExt);


// ListBox1.Assign(NeverIgnore);
 Form45.ListBox1.Items.Text:=NeverIgnore.Text;
end;

procedure TForm45.Button2Click(Sender: TObject);
Var
 R,N: Integer;
begin
R:=-1;
 For N:=ListBox1.Items.Count-1 Downto 0 do
   If ListBox1.Selected[n]=True Then
     R:=N;
If R<>-1 Then
 Begin
  NeverIgnore.Delete(NeverIgnore.IndexOf(ListBox1.Items[R]));
  ListBox1.Items.Delete(R);
 End;
// ListBox1.Items.Assign(NeverIGnore);
 Form45.ListBox1.Items.Text:=NeverIgnore.Text;
end;

end.