Delphi状态栏控件应用一例

在一些图形处理和建筑CAD软件中，常常可以看到窗体界面的状态栏中的top、left、button、righ会随着鼠标的移动而改变其中的数值，始终保持记录鼠标的位置。其实，这个实现起来很简单，下面就让我们来实现这一功能。

打开Delphi应用程序，新建一窗体，在控件面板第三页的win32中找到statusbar控件，拖放到窗体的底部，调整好大小，在其属性面板中找到panels，点击右面的小工具图标，打开editing statusbar panels小界面，用add new命令添加panels[0]、panels 、panels 、panels 四个项，并且在其text属性中命名为top、left、button、righ。添加以下代码，其功能是在窗体中画矩形，并且，其状态栏记录鼠标的位置，非常简单，在此不再赘述。

代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;

procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

startx,starty:integer;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

startx:=x;

starty:=y;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

form1.Canvas.Rectangle(startx,starty,x,y);

statusbar1.panels[0].text:='';

statusbar1.panels .text:='';

statusbar1.panels .text:='';

statusbar1.panels .text:='';