Funkcja reagująca na Eventy.

[Arnold_S]

Witam ponownie. Chciałbym skonstruować funkcję, która mogłaby reagować na wystąpienie zdarzenia dla myszy, lub klawiatury, np.

Kod: Zaznacz cały

void funkcja(jakieś argumenty)
{
    if (wystąpiło zdarzenie TForm1::Edit1mouseUp || TForm1::Edit1mouseDown || ...itd..)
          {
               tutaj reakcja na wystąpienie któregoś z tych zdarzeń
          }
}


Nie bardzo mogę sobie wyobrazić konstrukcję takiej funkcji. Bardzo by mi to ułatwiło. Proszę o pomoc w rozwikłaniu tego problemu.

/edit
Chciałbym nadmienić, że w testowym programie mam 3 pola Edit (każde ma własną nazwę inną niż domyślna). Chciałbym obsługiwać te pola pod kątem zabezpieczenia przed wpisaniem niewłaściwych znaków ale chciałbym aby odbywało się to "ogólnie". Nie chciałbym dla każdego z tych pól Edit tworzyć gąszczu zdarzeń.

[Cyfrowy Baron]

Określ dokładnie o co tobie chodzi. Czy chcesz przechwytywać komunikaty wysyłane przez mysz i klawiaturę, czy chcesz wprowadzić ograniczenie uniemożliwiające wpisywanie określonych znaków do pola typu TEdit i jakich konkretnie znaków.

[Arnold_S]

Faktycznie źle się wyraziłem. Nie chodziło mi o eventy klawiatury lub myszy z WinApi. Chciałem sobie ułatwić i skonstruować funkcję, która "obserwuje" działanie na wybranych komponentach (np.: pola Edit, lub ComboBox) i gdy tylko pojawią się jakieś eventy (np.: OnClick, OnKeyDown lub OnChange) to w odpowiedni sposób zareaguje.

[Cyfrowy Baron]

OnCLick, OnKyeDown itp... - Przeiceż obiekty typu TEdit i TComboBox obsługują te zdarzenia. Musisz oprogramować te zdarzenia dla tych obiektów.

Jeżeli chcesz żeby jedna funkcja obsługiwała wszystkie obiekty to musisz posłużyć się rzutowaniem polimorficznym: RZUTOWANIE TYPÓW, PRZYPISANIE POLIMORFICZNE.