mitenkä vaihdetaan TrackBar:ssa Max ja Min arvojen paikkaa silloin kun TrackBar on pystyasennossa... siis esmes jos Max= 65535 niin se pitäisi olla ylhäällä ja Min alhaalla.
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.
0Äänestä
DoD
.. TrackBarin arvot ovat:
Max = 0 Min = -65535
0Äänestä
Nortti
DoD kirjoitti:
.. TrackBarin arvot ovat:
Max = 0 Min = -65535
kiitoksia, kokeilin esimerkin mukaan ja toimii ok.
Vastaukset 3
Vanhimmat
. 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.
.. TrackBarin arvot ovat:
Max = 0
Min = -65535
kiitoksia, kokeilin esimerkin mukaan ja toimii ok.