uactionexecute.pas

来自「简单易用的按件按时计工资管理系统」· PAS 代码 · 共 77 行

unit uActionExecute;

interface
uses
  Windows, Forms, SysUtils, IdGlobal;
type
  TActionExecute=class

  published
    procedure DoCloseAll;
    procedure DoArrangeIcons;
    procedure DoCascade;
    procedure DoTile;
    procedure DoHelp;
    procedure DoClose;

  end;
var
  ActionExecute:TActionExecute;
  
implementation

uses uGlobal;

procedure TActionExecute.DoCloseAll;
var
  I, nChildCount: Integer;
begin
  with Application.MainForm  do
  begin
    for I := MDIChildCount - 1 Downto 0 do
    begin
      nChildCount := MDIChildCount;
      ActiveMDIChild.Close;
      Application.ProcessMessages;
      if MDIChildCount = 0 then
        Break;
      if nChildCount = MDIChildCount then
        Next;
    end;
  end;
end;

procedure TActionExecute.DoClose;
begin
  Application.MainForm.close;
end;

procedure TActionExecute.DoArrangeIcons;
begin
  Application.MainForm.ArrangeIcons;
end;

procedure TActionExecute.DoCascade;
begin
  Application.MainForm.Cascade;
end;

procedure TActionExecute.DoTile;
begin
  Application.MainForm.Tile;
end;

procedure TActionExecute.DoHelp;
begin
  HtmlHelpA(Application.MainForm.Handle,
    Pchar(ExtractFilePath(Application.ExeName ) + Application.HelpFile), 1,
    '概述');
end;

initialization
  ActionExecute := TActionExecute.Create;

finalization
  FreeAndNil(ActionExecute);
end.