TLabel/fi
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
TLabel on komponentti, joka näyttää yksi tai monirivistä tekstiä. Se löytyy komponenttipaletin Standard-välilehdeltä. TLabel on TGraphicControl:n jälkeläinen.
Käyttö
TLabel on yksi peruskomponentteja jota voidaan lomakkeella käyttää. Useinmiten TLabel:t kertovat käyttäjälle muiden komponenttien käyttötarkoituksesta. Nämä muut komponentit voivat olla esim. TEdit, TMemo, TStringGrid jne. TLabel:t tarjoavat myös erilaisia tapahtumia, mutta useimmissa tapauksissa niitä ei tarvita.
TLabel lisätään lomakkeelle, klikkaamalla TLabel-komponenttia (kuvake, jossa on "Abc" teksti) komponenttipaletin Standard-välilehdellä ja asettamalla se klikkauksella lomakkeelle.
TLabel:n oletustekstiä voidaan muuttaa. Se voidaan muuttaa vaikka seuraavalla tavalla:
- Mene Lomakkeelle yhdellä napsautuksella, valitse TLabel.
- Mene komponenttimuokkaimessa ominaisuudet välilehdelle.
- Valitse omiaisuus Caption ja muuta viereisessä muokkauskentässä olevaa tekstiä.
- Samalla tavalla, voit valita ominaisuus Name ja antaa TLabel:lle parempi nimi.
Tekstin muuttaminen ohjelman suorittamisen aikana
Tietenkin, tekstin (joka näytetään) voi muuttaa ohjelman suorittamisen aikana.
Seuraava esimerkki osoittaa tämän:
- Luo uusi graafinen sovellus jossa on lomakkeena Form1. Lisää tähän lomakkeelle vielä painonappi Button1 ja TLabel nimeltään Label1 valitsemalla kyseiset komponentit komponenttipaletin Standard-välilehdeltä ja klikkaamalla ne lomakkeelle Form1 (TLabel:n voisi olla painikkeen yläpuolella).
- Luo nyt Button1:n tapahtumakäsittelijä, yksinkertaisesti tuplaklikkaamalla Button1-komponenttia.
- Täydennä puuttuvat rivit Button1:n OnClick tapahtumankäsittelijään:
procedure TForm1.Button1Click(Sender: TObject);
const Cnt: Integer = 0; //laskija joka määrittää, kuinka monta kertaa painiketta on klikattu
begin
inc(Cnt); //Lisätään laskijaa yhdellä
Label1.Caption:='Nappia on painettu ' + //Kirjoitetaan näytettävä teksti
IntToStr(Cnt) + ' kertaa';
end;
- Suorita ohjelma ja testaa muuttuuko teksti painonapin painalluksella.
Kommentit
Jos halutaan näyttää moirivistä tekstiä niin täytyy lisätä LineEnding kuvaavaan rivinvaihtoa. Esimerkki:
Label1.Caption := 'Tässä' + LineEnding + 'on' + LineEnding + 'monirivinen' + LineEnding + 'teksti';
Katso myös