Podstawy pisania komponentów      Strona 7 z 9        Dalej
w oparciu o materiały ze stron The Bits

       Teraz, kiedy nasz komponent jest gotowy, sprawdźmy czy wszystko działa. Najpierw zapisz wszystko (File | Save All). Następnie dodaj unit LED do testowego projektu - (Project | Add to Project) i zlokalizuj plik led.cpp (domyślnie zapisywany w katalogu lib C++Buildera). Potem dołącz plik nagłówkowy - #include "LED.h" na górze w pliku LEDForm.h:

#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include "LED.h"
      Teraz przejdź do pliku LEDForm.h i dodaj w sekcji private:

private: // User declarations
TLED* LED1;
      Wróć do formy LEDForm i wybierz zdarzenie OnCreate z inspektora obiektów. Wpisz poniższy kod do tej funkcji:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
	LED1 = new TLED(this);
	LED1->Parent = this;
	LED1->Left = (Width/2)-(LED1->Width/2);
	LED1->Top = (Height/2)-(LED1->Height/2);
}
      Ten kod dynamicznie tworzy nowy komponent TLED i umieszcza go na środku ekranu (kiedy tworzysz komponent dynamicznie, musisz ustawić wszystkie jego wartości w kodzie). Zauważ, że trzeba ustawić rodzica (Parent) komponentu. Teraz wybierz zdarzenie OnClick dla przycisku.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	LED1->LEDOn = !LED1->LEDOn;
}
      Nadszedł czas na uruchomienie programu! Program powinien wyglądać tak:



      Klikając przycisk zmieniasz kolor diody z czerwonego na zielony i odwrotnie. Kiedy już masz gotowy komponent pora zainstalować go na palecie komponentów, a w wersji 3 i powyżej dodać do pakietu.

Uwaga: Autorzy oraz The Bits, nie ponoszą odpowiedzialności za ewentualne szkody wynikłe z postępowania według zasad tego samouczka.
(c)1997 Kris Erickson. (c)1999 Will Green.
Tłumaczenie:  Maciek Frankiewicz

1  2  3  4  5  6  7  8  9