cframemenu.pas

来自「网络人事管理系统(Delphi源码).适合做企业人事管理系统.」· PAS 代码 · 共 54 行

unit CFrameMenu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IWControl, IWHTMLControls, IWCompButton, IWCompLabel, IWAppForm, IWContainer,
    IWRegion;

type
  TFrameMenu = class(TFrame)
    iwlCorp: TIWLink;
    iwlHuman: TIWLink;
    iwlQuery: TIWLink;
    iwlRight: TIWLink;
    procedure iwlCorpClick(Sender: TObject);
    procedure iwlHumanClick(Sender: TObject);
    procedure iwlQueryClick(Sender: TObject);
    procedure iwlRightClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   // procedure Move(AFormClass: TIWAppFormClass);
  end;

implementation
uses   IWInit, IWTypes, CFormCorpList, CFormHumanList, CFormQuery,
  CFormRight, CWebUtils;
{$R *.dfm}

procedure TFrameMenu.iwlCorpClick(Sender: TObject);
begin
  Move(TformCorpList);
end;

procedure TFrameMenu.iwlHumanClick(Sender: TObject);
begin
  Move(TformHumanList);
end;

procedure TFrameMenu.iwlQueryClick(Sender: TObject);
begin
  Move(TformQuery);
end;

procedure TFrameMenu.iwlRightClick(Sender: TObject);
begin
  Move(TformRight);
end;

end.