uuserlandmsgf.pas

一套功能非常丰富的图书管理系统

unit uUserLandMsgF;

interface

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

type
  TUserLandMsgF = class(TForm)
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserLandMsgF: TUserLandMsgF;

implementation

{$R *.DFM}

procedure TUserLandMsgF.Button1Click(Sender: TObject);
var
  Answer : integer;
begin
  Answer := MessageBox(0,'删除此用户将删除于此用户相关的所有信息','警告',MB_YESNOCANCEL);
  if Answer = IDYES then
    ModalResult := mrok
  else if Answer = IDNO then
         ModalResult := mrno;
end;

procedure TUserLandMsgF.Button2Click(Sender: TObject);
begin
  ModalResult := mrNO;
end;

procedure TUserLandMsgF.Button3Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.