trackbar' ın azaldığını veya arttığını nasıl anlayabilirz

[tecnic]

trackbar' ın azaldığını veya arttığını nasıl anlayabilirz position değişkenini kullanıyorum fakat trackbar değişmeden bir önceki değerle nasıl karşılaştırcam veya artma eksilme giib bir fonsiyonu var mı trackbar'ın

[mege]

onchance veya onslide mıydı bir eventi var, burada o anki değeri bir değişkene atayın, x:=track.positon; sonraki tetiklendiğinde position<x >x gibi kontrol edersiniz

[mucar]

mege'nin dediği gibi Onchange'de yapabilirsiniz.

Kod: Tümünü seç

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  deger:integer=5; //ilk pozisyonu atayın

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position>deger then
label1.Caption:='artiyo'
else if TrackBar1.Position<deger then
label1.Caption:='azaliyo'
else
label1.Caption:='sabit';

deger:=TrackBar1.Position;
end;

end.

[tecnic]

teşekkür ediyorum her iki cvpta çok işime yaradı