dllform.pas

千年2的脱机源代码

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.