TrackBar

. ratkaisu on käyttää negatiivisiä arvoja ja kääntää ne ohjelmassa, esim.


unit Unit1;

interface

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

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
Label1: TLabel;
procedure TrackBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
var positio:integer;
begin
positio:=not TrackBar1.Position 1;
//positio sisältää käsiteltävän arvon
Label1.Caption:=inttostr(positio);
end;

end.