TUpDown/fi
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TUpDown-komponentti on kahden painikkeen ohjaus, joka auttaa lisäämään tai pienentämään jonkin verran arvoa sen Min- ja Max- ja Increment-ominaisuuksien perusteella. TUpDown-komponentti näkyy kahtena nuolipainikkeena jotka ovat ylöspäin (seuraava) ja alaspäin (edellinen). Min- ja Max-ominaisuuksia käytetään määrittämään TUpDownin vähimmäis- ja maksimiarvot. TUpDown-komponentin arvot ovat Smallint numeroita. Property Position edustaa valittua arvoa. Jos ominaisuus ArrowKeys on true, TUpDown-komponenttia voidaan käyttää näppäimistön nuolinäppäimillä, jotka simuloivat seuraavan tai edellisen painikkeen klikkausta. Asscociate-ominaisuus voi linkittää sen johonkin muuhun ohjaukseen, joka saa arvonmuutoksen ohjeen TUpDownilta. TUpDown löytyy komponenttipaletin Common Controls -välilehdeltä.
Ajonaikainen luonti
Tässä on yksinkertainen esimerkki TUpDown-komponentin luomisesta ajonaikaisesti.
Luo ensin lomake ja laita siihen TEdit-komponentti.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
UpDown1: TUpDown;
begin
UpDown1:= TUpDown.Create(Self);
UpDown1.Parent:=Self;
UpDown1.Min := -100;
UpDown1.Max := 100;
UpDown1.Associate := Edit1;
end;
end.
Katso myös