hvordan bruges biHelp / crHelp

Det jeg søger er hvordan man med klik på en knap undersøger om Cursor er = crHelp

Der må da være nogen der ved noget om dette, da Delphi's egne hjælpefiler og div. websites ikke skriver ret meget om dette

Hvis jeg forstår dig ret så skal du bruge følgende:

if screen.Cursor = crHelp then etEllerAndet.

Hvis man har lavet en traditionel hjælpefil

skriver man f.eks
if screen.Cursor = crHelp then Application.HelpJump(HelpID);

HelpID (string) er et ID man har givet en bestemt side i sin hjælpefil.

For at lave hjælpefilen har du brug for et særligt program. Jeg kan ikke lige anbefale noget her, men prøv at søge i google.


Hvis man har lavet Html-baseret hjælp kunne det være

if screen.Cursor = crHelp then

ShellExecute(0, 'open', PChar('StienTilHjælpefilen'), nil, nil, SW_SHOWNORMAL);

//Erik Thomsen

Jeg bruger denne:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if screen.Cursor = crHelp then
  ShowMessage(CursorToString(cursor));
end;

men den virker ikke ??

hvis jeg fjerner "if screen.Cursor = crHelp then" så vises msg. kun hvis cursor IKKE er crHelp, altså crDefault

Ingen bud ??