|
Tytuł:
Kurs Delphi cz.12 - Komponent tabeli
Autor:
Radomir Trzeciak
Data
aktualizacji: 24 kwiecień 2006 r.
Komponent
tabeli
Do
wypełnienia tabeli służy komponent String Grid. Tabele
tę określa się mianem dwuwymiarowej (przypomina arkusz
kalkulacyjny). Podstawowymi właściwościami tego komponentu są:
1.
Cells[Acol,
Arow:Integer] - właściwość, która w postaci łańcucha
oddaje zawartość komórki wskazanej parametrami,
2.
Cols[Index:Integer]
- właściwość, która oddaje kolumnę o numerze Index,
3.
Rows[Index:Integer] -
właściwość, która oddaje wiersz o numerze Index,
4.
ColCount - właściwość,
która oddaje liczbę kolumn,
5.
RowCount - właściwość,
która oddaje liczbę wierszy,
6.
OnSelectCell -
procedura; oddaje w swoich parametrach współrzędne komórki
zaznaczonej przez użytkownika.
Zadanie
12.1. Utwórz elektroniczny dzienniczek ucznia. Aplikacja
posiada tabelę, która zawiera liczbę przedmiotów oraz oceny.
1.
Wstaw na formę komponent StringGrid.
2.
W oknie ObjectInspector zmień jego właściwości:
-
Align:=AlClient;
{tabela wypełni całkowity obszar okna}
-
ColCount:=10;
{liczba kolumn}
-
FixedCols:=0;
{liczba zamrożonych kolumn (bez możliwości edycji)}
-
RowCount:=10;
{liczba wierszy tabeli = liczba przedmiotów}
3.
Naciskając myszką znak "+" z lewej strony właściwości
Options, rozwiń ich listę oraz zmodyfikuj pozycje:
-
goColSizing:=True;
{zmiana rozmiarów szerokości kolumny}
-
goColMoving:=True;
{możliwość przenoszenia kolumn}
-
goEditing:=True;
{możliwość wpisywania wartości do tabeli}
-
goRowMoving:=True;
{możliwość przenoszenia wierszy}
-
goTabs:=True;
{przemieszczanie się po komórkach klawiszem Tab}
4.
Przejdź do okna modułu i po słowie Implementation
wpisz procedurę wypełniającą zawartość tabeli:
procedure
wypelnij_tabele(var s:TstringGrid);
var i:integer;
begin
with s do begin
Cells[0,0]:='Przedmioty:';
Cells[0,1]:='j.polski';
Cells[0,2]:='matematyka';
Cells[0,3]:='j.angielski';
Cells[0,4]:='biologia';
Cells[0,5]:='chemia';
Cells[0,6]:='fizyka';
Cells[0,7]:='plastyka';
Cells[0,8]:='muzyka';
Cells[0,9]:='informatyka';
for i:=1 to 9
do
cells[i,0]:='ocena';
end;
end; |
5.
Wybierz formę w oknie ObjectInspector i dla
zdarzenia onCreate ( z zakładki Events) wpisz
procedurę:
procedure TForm1.FormCreate(Sender: TObject);
begin
wypelnij_tabele(StringGrid1);
end; |
6.
Sprawdź działanie programu (rysunek 12.1).
Rysunek
12.1. Działanie programu z zastosowaniem StringGrid.
ZAPRASZAM
DO KOLEJNYCH CZĘŚCI KURSU:
-
Kurs
Delphi - cz.1 - Wstęp
-
Kurs
Delphi - cz.2 - Menu aplikacji
-
Kurs
Delphi - cz.3 - "Chmurki"
-
Kurs
Delphi - cz.4 - Kolory komponentów
-
Kurs
Delphi - cz.5 - Przyciski opcji
-
Kurs
Delphi - cz.6 - Przyciski wyboru
-
Kurs
Delphi - cz.7 - Listy wyboru
-
Kurs
Delphi - cz.8 - Paski przewijania
-
Kurs
Delphi - cz.9 - Tworzenie paska narzędzi
-
Kurs
Delphi - cz.10 - Pole tekstowe - Memo
-
Kurs
Delphi - cz.11 - Zakładki w programie
Życzę
miłego programowania :)
|
