TACredits, scrolling Unicode & Smart-Tag capable Credits

[Prototypjack]

Zitat von 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
--

Moin,

Mir war dieser Fehler bisher nicht bekannt (leider bin ich momentan auch nicht in der Lage zu testen, ob er bei mir überhaupt auftritt). Nächsten Wochenende (~26.04.08 ) wird es aber sowieso einen neue Version geben, die auch ein Vordergrundbild laden kann und PNG-Unterstützung für Background und Foreground mitbringt (Danke an dieser Stelle an Sko der dies implementiert hat). Ich werde dann sehen ob ich für deinen Fehler etwas tun kann .

Grüße,
Max