frmjbxx.pas

一个简单的同学录软件

unit FrmJbxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ImgList, Menus, xutils;

type
  TFmJbxx = class(TFrame)
    ListView1: TListView;
    ImageList1: TImageList;
    procedure ListView1DblClick(Sender: TObject);
//    procedure CutDel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses frmMain, FrmSSendMail;

{$R *.DFM}

procedure TFmJbxx.ListView1DblClick(Sender: TObject);
begin

  if listview1.SelCount <> 0 then
    fmmain.cardview(listview1.Selected.SubItems.Strings[4],0);


end;

end.