Delphi Entwicklungsumgebung Routine Freaks Botschaften

Botschaften senden unter Borland C++ Builder

Hi, Freaks!

Ich moechte zwischen zwei in eigenstaendigen
Threads laufenden Fenstern benutzerdefinierte
Windows-Botschaften senden. In der Hilfe der
Entwicklungsumgebung steht auch ganz gut erklaert,
wie man auf empfangene Botschaften reagieren kann:

Nachstehend sehen Sie ein Beispiel für eine benutzerdefinierte Botschaft. Ihr Name lautet CM_CHANGECOLOR.
#define CM_CHANGECOLOR (WM_APP + 400)
class TMyControl : public TControl
{
protected:
void __fastcall CMChangeColor(TMessage* Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_CHANGECOLOR, TMessage, CMChangeColor)
END_MESSAGE_MAP(TControl)
};
void __fastcall TMyControl::CMChangeColor(TMessage* Message)
{
Color = Message->LParam;      // Farbe entsprechend dem Long-Parameter setzen
TControl::CMChangeColor(Message);     // Geerbte Behandlungsroutine aufrufen
}