mainform.pas

delphi源码- office样式可拖动工具栏 很好用的源程序

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, XPStyleActnCtrls, ActnMan, ActnCtrls, ActnMenus,
  ToolWin, ComCtrls, Menus, ExtCtrls, ImgList;

type
  TMainFrm = class(TForm)
    ActionManager1: TActionManager;
    AcOpenGST: TAction;
    AcOpenTAB: TAction;
    AcExit: TAction;
    AcViewNav: TAction;
    ControlBar1: TControlBar;
    ActionMainMenuBar1: TActionMainMenuBar;
    TBFile: TToolBar;
    TBtnOpenGST: TToolButton;
    TBtnOpenTAB: TToolButton;
    ImageListFile: TImageList;
    AcSave: TAction;
    AcSaveAs: TAction;
    ToolBarTool: TToolBar;
    TBtnZoomIn: TToolButton;
    TBtnZoomOut: TToolButton;
    ImageListTool: TImageList;
    AcViewLayer: TAction;
    TBtnPan: TToolButton;
    DockPageControl: TPageControl;
    SplitterLeft: TSplitter;
    procedure AcOpenGSTExecute(Sender: TObject);
    procedure AcOpenTABExecute(Sender: TObject);
    procedure AcExitExecute(Sender: TObject);
    procedure AcViewNavExecute(Sender: TObject);
    procedure AcSaveExecute(Sender: TObject);
    procedure AcSaveAsExecute(Sender: TObject);
    procedure AcViewLayerExecute(Sender: TObject);
    procedure ControlBar1DockOver(Sender: TObject; Source: TDragDockObject;
      X, Y: Integer; State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

procedure TMainFrm.AcOpenGSTExecute(Sender: TObject);
begin
  //
end;

procedure TMainFrm.AcOpenTABExecute(Sender: TObject);
begin
  //
end;

procedure TMainFrm.AcSaveExecute(Sender: TObject);
begin
//
end;

procedure TMainFrm.AcSaveAsExecute(Sender: TObject);
begin
//
end;

procedure TMainFrm.AcExitExecute(Sender: TObject);
begin
 //
end;

procedure TMainFrm.AcViewNavExecute(Sender: TObject);
begin
//
end;

procedure TMainFrm.AcViewLayerExecute(Sender: TObject);
begin
//
end;

procedure TMainFrm.ControlBar1DockOver(Sender: TObject;
  Source: TDragDockObject; X, Y: Integer; State: TDragState;
  var Accept: Boolean);
var
  ARect: TRect;
begin
  Accept:= Source.Control is TToolBar;
  if Accept then
  begin
    ARect.TopLeft:= Source.Control.ClientToScreen(Point(0,0));
    ARect.BottomRight:= Source.Control.ClientToScreen(Point(Source.Control.Height,
      Source.Control.Width));
    Source.DockRect:= ARect;
    
  end;
end;

end.