frmdwxx.pas

一个简单的同学录软件

unit FrmDwxx;

interface

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

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

implementation

uses FrmDataIn, frmMain;

{$R *.DFM}

procedure TFmDwxx.ListView1DblClick(Sender: TObject);
begin
if listview1.SelCount <> 0 then
fmmain.cardview (listview1.Selected.SubItems.Strings[12],3);

end;

end.