formstartup.pas

来自「如何使用MS Script OCX控件的例子」· PAS 代码 · 共 64 行

unit FormStartUp;

interface

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

type
  TfrmStartUp = class(TForm)
    lvStartUp: TListView;
    sbStartUp: TStatusBar;
    procedure lvStartUpDblClick(Sender: TObject);
    procedure lvStartUpKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  end;

var
  frmStartUp: TfrmStartUp;

implementation

{$R *.DFM}

procedure TfrmStartUp.lvStartUpDblClick(Sender: TObject);
begin
  if lvStartUp.Selected <> nil then
    Close;
end;

procedure TfrmStartUp.lvStartUpKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  ESC = 27;
  RTN = 13;
begin
  case Key of
    ESC :
      lvStartUp.Selected := nil;
    RTN :
      lvStartUpDblClick( Sender );
    else
      Exit;
  end;
  Close;
end;

procedure TfrmStartUp.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  with lvStartUp do
    if Selected <> nil then
      if StrToInt( Selected.SubItems[0] ) > 1 then
        begin
          MessageDlg( 'More than one arguments in start up subroutine is not allowed' +
                      'please select another one',
                      mtInformation, [mbOK], 0 );
          Selected := nil;
          CanClose := False;
        end;
end;

end.