Links en Delphi

[pepelusote]

Se que tal vez es muy sencillo, pero no lo se:

¿ Como hago un link (enlace) de una etiqueta
de Bases de Datos en Delphi 5?

[andres1569]

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:

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;