TACredits, scrolling Unicode & Smart-Tag capable Credits

[calculon]

Hallo,

ich finde deine Komponente sehr schön und will sie in ein Projekt einbauen. Nur klappt etwas nicht so ganz. Wenn ich auf einen Link klicke dann öffnet sich die URL im Browser, aber die Form reagiert erst wieder, wenn auf die Komponente geklickt wird, d.h. sie reagiert schon (ist nicht eingefroren, oder so), aber die Ereignisse der restlichen Controls werden nicht mehr sofort ausgelöst. Sie sind in einer Warteschleife (?) bis auf die ACredit-Komponente geklickt wird. Dann werden sie erst ausgeführt.

Wenn ich beispielsweise in deiner Unit folgendes einfüge,

Delphi-Quellcode:

     if FAnchorLinkList[I].SmartTag = stUrl then
      begin
        {$IFDEF NO_UNICODE}
        Shellexecute(0, 'open',
          PChar(FAnchorLinkList[I].Parameter), nil, nil, SW_SHOW);
        ShowMessage('Zeig mich!');
        // BTW: Benutze Delphi 7 
        {$ELSE}
        ShellexecuteW(0, 'open',
          PWideChar(FAnchorLinkList[I].Parameter), nil, nil, SW_SHOW);
        {$ENDIF}
      end;

dann hängt das am ShellExecute bis -wie gesagt- auf die Komponente geklickt wird. Dann erscheint auch die ShowMessage-Meldung. Weißt du woran das liegen könnte?

Gruß

Calculon
--