unit2.pas

DELPHI的压缩控件,非常实用的第三方控件

Unit Unit2;

Interface

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

Type
   TForm2 = Class( TForm )
      ListView1: TListView;
      Procedure FormKeyDown( Sender: TObject; Var Key: Word; Shift: TShiftState );
   Private
      { Private declarations }
   Public
      { Public declarations }
   End;

Var
   Form2: TForm2;

Implementation

{$R *.DFM}

//-------------------------------------------------------------

Procedure TForm2.FormKeyDown( Sender: TObject; Var Key: Word; Shift: TShiftState );
Var
   RestoreIndex     : INTEGER;
   SelectedItem     : TListItem;
Begin
   (* Esc Key *)
   If Key = 27 Then
      Close( )
         (* Delete key *)
   Else
      If ( Key = 46 ) And ( ListView1.Selected <> Nil ) Then
      Begin

         SelectedItem := ListView1.Selected;
         If ListView1.Selected.Index + 1 < ListView1.Items.Count Then
            RestoreIndex := ListView1.Selected.Index
         Else
            RestoreIndex := ListView1.Selected.Index - 1;

         SelectedItem.Delete();
         
         If ListView1.Items.Count > 0 Then
         	ListView1.Items[RestoreIndex].Selected := True;

      End;

End;
//-------------------------------------------------------------

End.