frmgrxx.pas

一个简单的同学录软件

unit FrmGrxx;

interface

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

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

implementation

uses frmMain;

{$R *.DFM}

procedure TFmGrxx.ListView1DblClick(Sender: TObject);
begin
if listview1.SelCount <> 0 then
fmmain.cardview (listview1.Selected.SubItems.Strings[9],1);
end;

end.