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;