PDA

Ver la Versión Completa : Links en Delphi


pepelusote
07-07-2003, 10:16:15
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
07-07-2003, 10:57:56
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;