给 "blog V5" 的关于 TrackBar 控件的简单例子

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
procedure TrackBar1Change(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Self.Text := IntToStr(TrackBar1.Position);
end;

end.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := '变';
Button2.Caption := '再变';
Button3.Caption := '还原';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TrackBar1.ShowSelRange := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TrackBar1.Orientation := trVertical;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TrackBar1.ShowSelRange := True;
TrackBar1.Orientation := trHorizontal;
end;

end.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.ShowSelRange := False;
TrackBar1.Min := 1;
TrackBar1.Max := ClientWidth;
TrackBar1.Position := ClientWidth div 2;
TrackBar1.Height := 23;
Panel1.Left := 0;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Panel1.Width := TrackBar1.Position;
end;

end.