bar.pas

工具栏和状态栏 工具栏和状态栏 工具栏和状态栏 工具栏和状态栏

unit Bar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;

type
  TMainForm = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var
  icon:Ticon;
begin   //进行初始化
    MainForm.caption:='工具栏和状态栏示例';
    icon:=TIcon.Create;  //创建一个图标对象
    icon.LoadFromFile('UP.ICO');
    imagelist1.AddIcon(icon); //载入图标文件
    icon.LoadFromFile('down.ico');
    imagelist1.AddIcon(icon);  //加入到imagelist1中
    icon.LoadFromFile('left.ico');
    imagelist1.AddIcon(icon);
    icon.LoadFromFile('right.ico');
    imagelist1.AddIcon(icon);
    icon.Free;   //释放位图
    label1.Font.Size:=40;
    label1.Caption:='V C L';
    statusbar1.SimplePanel:=True;//设置状态栏使之为单行
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
    if(label1.Top>=mainform.Top-40) then
    begin
       label1.Top:=label1.Top-20;
       statusbar1.SimpleText:='VCL Left ：'+inttostr(label1.Left)
             +'   Top: '+inttostr(label1.Top);
    end
    else
       statusbar1.SimpleText:='  vcl不能在向上移动了 ';
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
     if(label1.Top<=mainform.Top+240) then
      begin   //设置状态栏
        label1.Top:=label1.Top+20;
        statusbar1.SimpleText:='VCL Left ：'+inttostr(label1.Left)
             +'   Top: '+inttostr(label1.Top);
      end
     else
        statusbar1.SimpleText:='  vcl不能在向下移动了 ';
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
    if(label1.left>20) then
    begin    //标签向左移动
        label1.left:=label1.left-20;
        statusbar1.SimpleText:='VCL Left ：'+inttostr(label1.Left)
             +'   Top: '+inttostr(label1.Top);
    end
     else
     statusbar1.SimpleText:='  vcl不能在向左移动了 ';
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);
begin
    if(label1.left<=mainform.Width-label1.Width) then
     begin      //标签向右移动
        label1.left:=label1.left+20;
        statusbar1.SimpleText:='VCL Left ：'+inttostr(label1.Left)
             +'   Top: '+inttostr(label1.Top);
    end
     else
     statusbar1.SimpleText:='  vcl不能在向右移动了 ';
end;

end.