TLabel/fi

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

• TLabel dokumentaatio
• TStaticText

From the Free Pascal wiki, page "TLabel/fi", as it stood on 2020-03-01 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.