9 (1259)
57
Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie
Przykład 4.6.
Wyświetl na etykiecie zawartość okienka TEdit po wprowadzeniu danej i naciśnięciu klawisza Enter.
Rozwiązanie
W procedurze obsługi zdarzenia OnKeyPress dla komponentu TEdit wpisz instrukcje jak w procedurze poniżej:
procedurę TForml.Edit2KeyPress(Sender: TObject; var Key: Char): begin
if Key=#13 then Labell.Caption:=Edit2.Text; end;
Aby wejść do procedury obsługi zdarzenia OnKeyPress, można skorzystać z Inspektora Obiektów, wybierając zakładkę Events i klikając dwukrotnie z prawej strony zdarzenia
OnKeyPress.
Przykład 4.7.
Napisz program, który umożliwi obliczenie sumy dwóch liczb całkowitych wprowadzonych z klawiatury do dwóch okienek typu TEdit po wpisaniu liczb i kliknięciu przycisku Oblicz sumą — rysunek 4.2.
Rysunek 4.2.
Komponenty do zadania obliczającego sumą dwóch liczb
Rozwiązanie
W procedurze obsługi kliknięcia przycisku zadeklaruj dodatkowe zmienne i wpisz treść jak poniżej:
// obliczanie sumy dwóch liczb całkowitych procedurę TForml.ButtonlClick(Sender: TObject); var Ll,L2:integer; begi n
Ll:=StrToInt(Editl.Text);
L2:=StrIoInt(Edit2.Text);
Labell.Caption:=Inttostr(Ll+L2);
// lub to samo krócej:
// Label l.Caption:=Inttostr(StrToInt(Editl.Text)+StrToInt(Edit2.Text)): end:
Aby dodać liczby rzeczywiste, wystarczy zamienić funkcje konwersji liczb całkowitych (IntToStr i StrToInt odpowiednio na funkcje konwersji liczb rzeczywistych — FloatToStr i StrToFloat) i deklarację typu zmiennej z Integer na Single.
Wyszukiwarka
Podobne podstrony:
5 (1794) Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie 53 Tabela 4.4.
7 (1497) 55 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekraniePrzykład 4.3. O
3 (2314) 51 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie Tabela 4.2. Fu
21 (861) 69 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekraniePrzykład 4.20.
23 (800) Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie 71 Tabela 4.9.
skanuj0060 (57) Rozdział 3. ♦ Instrukcje sterujące i funkcje 73 można go przedstawić za pomocą instr
skanuj0138 (15) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 149 fclose(Sfd): header("Cont
skanuj0140 (14) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 151 Katalog jest otwierany za pomo
więcej podobnych podstron