[ Pobierz całość w formacie PDF ]
.Wszystkie zdarzenia mają charakter procedur.Do jakich celów się ich używa opowiem w kolejnych częściach kursu, gdyż informacja ta nie jest w tej chwili niezbędna.Zdarzenie możemy utworzyć na dwa sposoby: kliknąć dwa razy LPM na pustym polu obok zdarzenia, albo kliknąć tam raz i wpisać własną nazwę.Przy wykorzystaniu pierwszego sposobu program utworzy procedurę o domyślnej nazwie.W tym przypadku Label1Click.I tak oto znaleźliśmy się w kodzie programu.Procedurę można sobie wyobrazić jako pewien blok.Po jej nazwie zawsze występuje słowo begin, co znaczy początek, natomiast na jej końcu słowo end, co znaczy koniec.Pomiędzy tymi dwoma słowami kluczowymi umieścimy nasz kod.Obok nazwy procedury znajduję się jeszcze dziwny nawias z pewnym napisem, ale tym również zajmę się w kolejnych częściach kursu.No i doszliśmy do sedna.Bo czym jest Delphi? To język programowania i najważniejszą rzeczą nie jest tutaj tworzenie graficznego wyglądu okna, ale pisanie kodu programu.No więc co możemy zrobić, aby nasza aplikacja zakończyła się po kliknięciu na obiekcie? Procedura wygląda tak:procedure TForm1.Label1Click(Sender: TObject);beginApplication.Terminate;end;To wszystko? Tak!!! Wystarczy jedna komenda, aby zakończyć aplikację.Słowo Application wskazuje tutaj na obiekt TApplication.Należy od do grupy obiektów, których nie widać na formie i które na dobrą sprawę można potraktować jako zmienne.Obiekt ten określa podstawowe cechy programu jako całości i posiada mnóstwo właściwości oraz metod.Jedną z nich jest metoda Terminate.Jej wywołanie powoduje zamknięcie aplikacji.Ot i cała procedura.Podsumujmy to.Użytkownik kliknie na obiekcie.Uruchomi się zdarzenie (procedura) Label1Click.Zostanie wykonany kod, czyli Application.Terminate i program się zakończy.Aby to wszystko zadziałało nie możemy zapomnieć o kompilacji.Więc CTRL+F9 i uruchommy go.Przykład można zobaczyć klikając poniżej:I to by było na tyle w tej części kursu.W następnej zajmiemy się napisaniem prostej aplikacji z obiektami TButton, TLabel oraz TEdit.W razie jakichś wątpliwości piszcie na adres chryssalid@interia.plŁukasz Feller „HTML”UWAGA!!! WSZYSTKIE PRZYKŁADY SKOMPILOWANO BEZ ŁĄCZENIA Z PAKIETAMI VCL40 I VCLX40.OZNACZA TO ŻE NIE URUCHOMISZ ICH JEŚLI NIE MASZ ZAINSTALOWANEGO DELPHI LUB TYCH PAKIETÓW.Kurs Delphi 4 - lekcja 1 strona 6 [ Pobierz całość w formacie PDF ]