frm_list.~pas

站长您好

unit Frm_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, Buttons, EnterAsTab, GIFImage, ExtCtrls,
  THPanel, StdCtrls, dxCore, dxButton, ImgList, ComCtrls;

type
  TFrmList = class(TFrmCargo)
    Lv: TListView;
    ImageList1: TImageList;
    procedure FormDeactivate(Sender: TObject);
    procedure LvKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure LvDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    Edit:TEdit;
    { Public declarations }
  end;

var
  FrmList: TFrmList;

implementation

{$R *.dfm}

procedure TFrmList.FormDeactivate(Sender: TObject);
begin
  inherited;
   Close;
end;

procedure TFrmList.LvKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Key=13)and(Lv.SelCount<>0) then
  begin
    Edit.Text:=Lv.Selected.Caption;
    FrmList.Close;
  end;
  if Key=VK_ESCAPE then
  begin
    FrmList.Close;
  end;
end;

procedure TFrmList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
 Action:=caFree;
 
end;

procedure TFrmList.FormDestroy(Sender: TObject);
begin
  inherited;
 FrmList:=nil;
end;

procedure TFrmList.LvDblClick(Sender: TObject);
begin
  inherited;
  if Lv.Items.Count=0 then
  begin
    FrmList.Close;
    exit;
  end;
  Edit.Text:=Lv.Selected.Caption;
  Edit.SetFocus;
  Edit.SelectAll;
  if FrmList<>nil then FrmList.Close
end;

end.