Foros Club Delphi - Links en Delphi

Hola, supongo que te refieres a esto, aunque no lo dejas del todo claro:

Por un lado, te gustará que al pasar el mouse sobre el TDBText, cambie la apariencia del cursor, sólo tienes que asignar la propiedad cursor del TDBText, por ejemplo a crHandPoint. También sería ideal interceptar cuando se pasa por encima para cambiar el color del TDBText, pero esto no es tan fácil porque no hay eventos publicados para cuando se entra y cuando se sale del área de dicho componente (los hay protegidos pero eso implicaría crear un componente heredado).

Cuando el usuario pulse sobre el TDBText, capturas el evento OnClick, o tal vez el OnMouseDown, y lanzas este código:

Código:

procedure TDialogoCreditos.Label5MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  ShellExecute(Application.MainForm.Handle , 'open',

               PChar(TDBText(Sender).Field.AsString), nil, nil, SW_MAXIMIZE);

end;

Esto abre el Explorer que haya por defecto y tarta de acceder a la página de ese link. Acuérdate de declarar la unit shellapi en Uses;