frmjtxx.pas

来自「一个简单的同学录软件」· PAS 代码 · 共 33 行

unit FrmJtxx;

interface

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

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

implementation

uses frmMain;

{$R *.DFM}

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

end.