8 (1357)

Aplikacje w Delphi. Przykłady

Tabela 4.6. Wybrane właściwości klasy TEdit
Właściwość	Znaczenie
Text	Właściwość zawiera tekst wprowadzony do okienka typu TEdit.
AutoSelect	Właściwość określa, czy po uzyskaniu aktywności przez komponent za pomocą klawisza TAB całość zawartego w nim tekstu zostanie zaznaczona, co umożliwia kasowanie tekstu po naciśnięciu klawisza alfanumerycznego.
CharCase	Umożliwia wymuszenie automatycznej zamiany zawartości kontrolki na duże (eclIpperCase) lub małe litery (ecLowerCase).
MaxLength	Umożliwia ograniczenie liczby wprowadzanych znaków do określonej wartości; właściwość MaxLength równa 0 (domyślnie) oznacza brak ograniczenia długości wprowadzanego tekstu.
PasswordChar	Wprowadzany tekst może być widoczny na ekranie (ustawienie domyślne) lub nie, wtedy gdy właściwość PasswordChar jest inna niż #0. Gdy na przykład we właściwości PasswordChar wpiszemy to zamiast wprowadzanych znaków pojawiają się znaki gwiazdki. Znaki te zawiera właściwość Text.
ReadOnly	Właściwość logiczna —jeśli ma wartość true, to nie można do okienka typu TEdit nic wpisać; domyślnie ma wartość false.

procedurę TForml.Button2Click(Sender: TObject); begin

Editl.Text:=FloatToStr(StrToFloat(Editl.Text)+l); end;

Przykład 4.5.

Do okienka typu TEdit wprowadź hasło i wyświetl je na etykiecie:

1. po kliknięciu przycisku Wyświetl hasło,

2. po wpisaniu każdego znaku.

Zamiast wprowadzanych znaków wyświetl znak *.

Rozwiązanie

1. Wstaw przycisk TButton, etykietę TLabel oraz TEdit.

2. Korzystając z okienka Inspektora Obiektów, przypisz właściwości

PasswordChar komponentu TEdit znak*.

Oto procedura obsługi kliknięcia przycisku Wyświetl hasło:

procedurę TForml.Button3Click(Sender: TObject): begin

Label13.Capti on:=Edit2.Text: end;

3. Wyświetlanie na etykiecie kolejnych znaków z okienka TEdit bezpośrednio po ich wprowadzeniu wymaga wykorzystania zdarzenia OnChange dla komponentu TEdit. Do procedury obsługi tego zdarzenia wchodzimy

po dwukrotnym kliknięciu komponentu TEdit. W procedurze wystarczy wpisać instrukcję taką, jak w procedurze z punktu 1.