新建 文本文档.txt

一个简单的同学录软件

unit FrmJbxx;

interface

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

type
  TFmJbxx = class(TFrame)
    ListView1: TListView;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    SendMail1: TMenuItem;
    CutDel1: TMenuItem;
    Show1: TMenuItem;
    procedure ListView1DblClick(Sender: TObject);
    procedure SendMail1Click(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
fmmain.cardview (listview1.Selected.SubItems.Strings[4]);
end;

procedure TFmJbxx.SendMail1Click(Sender: TObject);
begin
fmssendmail.visible:=true;
end;

procedure TFmJbxx.CutDel1Click(Sender: TObject);
begin
if yesnobox('真的要DEL吗？好无情的:<') then
begin
fmmain.ArrstudDelete(strtoint(listview1.Selected.SubItems.Strings[4]));
fmmain.FillList('');
fmmain.update;
msgbox('啊一声长叹，一个冥魂去向天边，我还会回来的。。。的。。的。。。');
end
else
begin
msgbox('还好我们是朋友，DEL谁也不能DEL我呀！我知道！');
end;

end;

end.