Programowanie w C++ Borland Builder - Wyższa Szkoła Informatyki ...

wpisujemy zero, ponieważ program nie posiada w tym stadium
wcześniejszego okna macieżystego.
Pozostało nam jeszcze dodać funkcję WinMain() i pierwszy program
obiektowy w wersji "Maszyna do robienia nic" jest gotów.
Listing . Obiektowa "Maszyna do robienia nic"
________________________________________________________________
#define STRICT
#define WIN31
#include
class TOkno : public TApplication
{
public:
TOkno(LPSTR AName, HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
: TApplication(AName, hInstance, hPrevInstance, lpCmdLine,
nCmdShow) {};
void InitMainWindow(){MainWindow = new TWindow(NULL, Name);};
};
int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
TOkno OBIEKT("Windows - Program PW1", hInstance,
hPrevInstance, lpCmdLine, nCmdShow);
OBIEKT.Run();
return 0;
}
________________________________________________________________
Wykonanie takiej aplikacji przebiega następująco. Windows
wywołują główną funkcję WinMain(), która przekazuje swoje
parametry do konstruktora klasy TOkno::TOkno(). Konstruktor
przekazuje parametry do konstruktora klasy bazowej
TApplication(). Po skonstruowaniu obiektu w pamięci funkcja
wywołuje odziedziczoną metodę Run(). Funkcja Run() wywołuje
metody InitApplication() (zainicjuj aplikację) i InitInstance()
(zainicjuj dane wystąpienie programu). Metoda InitInstance()
wywołuje funkcję InitMainWindow(), która buduje główne okno
aplikacji na ekranie. Po pojawieniu się okna rozpoczyna
działanie pętla pobierania komunikatów (message loop). Pętla
komunikatów działa aż do otrzymania komunikatu WM_QUIT.
Rozbudujmy aplikację o okienko komunikatów. Zastosujemy do tego
funkcję MessageBox(). Funkcja zostanie użyta nie jako metoda
(składnik obiektu), lecz jako "wolny strzelec" (stand alone
function).
Listing B. Maszyna rozszerzona o okienka komunikatów.
________________________________________________________________
#define WIN31
#define STRICT
- 429-