Infotext bei OnMouseOver erstellen

f8frankie

Guten Morgen zusammen,

ich kämpfe mal wieder mit einem sicherlich ganz banalen Prob. Dank der guten Hilfe in diesem Forum habe ich folgende Funktionen geschrieben, die auch funzen:

void __fastcall TfrmCPEingabe::OnMouseOver(TMessage & Msg)
{
   if ( ((TLabel *)Msg.LParam) ==  lblPersNr)
   {
      ShowMessage(AnsiString("Bitte Ihre 4-stellige Personal-Nr. eingeben"));
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmCPEingabe::OnMouseOut(TMessage & Msg)
{
   if ( ((TLabel *)Msg.LParam) ==  lblPersNr)
   {
     // ???
     ;
   }
}

Prob1:
Statt einer ShowMessageBox will ich den Text nur als Zeile anzeigen, weiss aber nicht , wie ich das anstellen soll

Prob2:
Ich kenne den Befehl für das OnMouseOut-Ereignis nicht, damit der Text dann wieder verschwindet.

Danke für eure Hilfe
und seht mir meine Unwissenheit nach

f8frankie

<edit>Zwischen [code type und dem "=" darf kein leerzeichen stehen.</edit>

[ Dieser Beitrag wurde am 07.03.2003 um 11:21 Uhr von junix editiert. ]

Peter

Guck Dir mal die Eigenschaft Hint an.

F98

VCL_MESSAGE_HANDLER(CM_MOUSELEAVE , TMessage, OnMouseOut)

f8frankie

danke, jetzt funzt es.