TrackBar

nortti

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.

3

403

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • DoD

      . 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.

      • DoD

        .. TrackBarin arvot ovat:

        Max = 0
        Min = -65535


      • Nortti
        DoD kirjoitti:

        .. TrackBarin arvot ovat:

        Max = 0
        Min = -65535

        kiitoksia, kokeilin esimerkin mukaan ja toimii ok.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      198
      6948
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      159
      2056
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1698
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1400
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      55
      1248
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      50
      1118
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      100
      1074
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      7
      1006
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      253
      961
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      939
    Aihe