frm_list.~pa

站长您好

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);
  private
    { Private declarations }
  public
   Combobox:TCombobox;
    Function GetCmbIndex(Combobox:TCombobox; s:string):integer;//输入Combobox.text值,如果存在则返回ItemIndex值,否则返回-1
    { Public declarations }
  end;

var
  FrmList: TFrmList;

implementation

{$R *.dfm}

function TFrmList.GetCmbIndex(Combobox: TCombobox; s: string): integer;
var i:integer;
begin
  for i:=0 to Combobox.Items.Count-1 do
  begin
    if Combobox.Items[i]=trim(s) then
    begin
      result:=i;
      exit;
    end;
  end;
  result:=-1;
end;

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

procedure TFrmList.LvKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Lv.Items.Count=0 then
  begin
    FrmList.Close;
    exit;
  end;
  Combobox.Clear;
  Combobox.Items.Add(Lv.Selected.Caption);
  Combobox.ItemIndex:=0;
  FrmList.Close;
end;

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

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

end.