


//Unit1.cpp
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->HelpFile="moj_testowy_help.hlp";
}
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
TForm1->Help(Sender);
}
void __fastcall TForm1::Help(TObject* Sender)
{
THelpContext HC;
TClass ClassRef;
for (ClassRef = Sender->ClassType(); ClassRef != NULL; ClassRef = ClassRef->ClassParent())
{
if (String(ClassRef->ClassName()) == "TWinControl")
{
HC = ((TWinControl*)Sender)->HelpContext;
break;
}
else
if (String(ClassRef->ClassName()) == "TGraphicControl")
{
HC = ((TGraphicControl*)Sender)->Tag;
break;
}
if (HC != 0)
Application->HelpCommand(HELP_CONTEXTPOPUP, HC);
}

winhlp32 -n 2 c:\program\pomoc.hlp
winhlp32 -n NUMERKONTEXTU PLIKMOMOCY(PATH)



Powrót do Ogólne problemy z programowaniem
Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 66 gości