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

{
return (MessageBox(HWindow, Ptr, "KONIEC",
MB_YESNO | MB_ICONQUESTION) == IDYES);
}
Zajmiemy się teraz główną "maszynerią" programu. Rozbudujemy
obsługę komunikatów przez handlery zaimplenmentowane w klasie
Główne_Okno.
_CLASSDEF(TGOkno)
class TGOkno : public TWindow
{
public:
HDC dc;
BOOL ButtonDown;
BOOL Flaga_Start;
TGOkno(PTWindowsObject AParent, LPSTR ATitle);
//Konstruktor
virtual void WMLButtonDown(RTMessage Msg)
= [WM_FIRST + WM_LBUTTONDOWN];
virtual void WMLButtonUp(RTMessage Msg)
= [WM_FIRST + WM_LBUTTONUP];
virtual void WMMouseMove(RTMessage Msg)
= [WM_FIRST + WM_MOUSEMOVE];
virtual void WMRButtonDown(RTMessage Msg)
= [WM_FIRST + WM_RBUTTONDOWN];
virtual BOOL CanClose();
};
Konstruktor przekazuje parametry do konstruktora klasy bazowej i
zeruje flagę ButtonDown - lewy klawisz myszki przyciśnięty.
TGOkno::TGOkno(PTWindowsObject AParent, LPSTR ATitle)
: TWindow(AParent, ATitle)
{
ButtonDown = FALSE;
}
Funkcja obsługująca zdarzenie WM_LBUTTONDOWN jeden raz inicjuje
obsługę myszki i ustawia flagę. Funkcje SetCapture() i GetDC()
załatwiją problem relacji kontekstowych i określają obszar
roboczy (client area). Jeśli umieścimy te funkcje w
konstruktorze za obszar client area uznany zostanie cały ekran.
Po zadziałaniu tych funkcji komunikaty od myszki będą dotyczyć
wyłącznie obszaru roboczego. Do naciśnięcia prawego klawisza nie
będzie dostępu do "ramki" okna.
void TGOkno::WMLButtonDown(RTMessage Msg)
{
if (!Flaga_Start)
{
- 439-