dllform.pas

千年外挂通用

unit dllform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TdllForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Listsend: TListView;
    Checksend: TCheckBox;
    Checksave: TCheckBox;
    Edit1: TEdit;
    Listrecv: TListView;
    Buttonsend: TButton;
    Checkrecv: TCheckBox;
    Buttonrecv: TButton;
    Edit2: TEdit;
    procedure ButtonsendClick(Sender: TObject);
    procedure ButtonrecvClick(Sender: TObject);
    procedure ListrecvSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure ListsendSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  dllForm1: TdllForm1;

implementation

{$R *.dfm}


procedure TdllForm1.ButtonsendClick(Sender: TObject);
begin
  listsend.Items.Clear;               //清除
end;

procedure TdllForm1.ButtonrecvClick(Sender: TObject);
begin
  listrecv.Items.Clear;                //清除
end;

procedure TdllForm1.ListrecvSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  edit2.Text := item.SubItems.Text;    //取得单击行的数据
end;

procedure TdllForm1.ListsendSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  edit2.Text := item.SubItems.Text;    //取得单击行的数据
end;

end.