toolbar_unit.pas

来自「一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件」· PAS 代码 · 共 54 行

unit toolbar_Unit;

interface

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

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ToolBar1EndDrag(Sender, Target: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   accept:=(source=toolbar1) and ((x<60)or(x>width-60)or(y<60)or(y>height-60));
end;

procedure TForm1.ToolBar1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
   if x<60 then
   toolbar1.Align:=alleft;
   if x>form1.Width-60 then
   toolbar1.Align:=alright;
   if y<60 then
   toolbar1.Align:=altop;
   if y>form1.Height-60 then
   toolbar1.Align:=albottom;
end;

end.