|
Turning a Label into a "hyperlink"
The main difference between turning a Label and a Memo into a hyperlink is a Memo can
recieve focus.
To turn a Labe into a hyperlink:
- Change the Label's Cursor property to crHandPoint
- Change the Label's Font property to make it blue and under lined
or whatever you think a hyperlink should look like
- The real thing that makes a hyperlink is the code for clicking the
Label which is given below
procedure TForm1.URLLabelClick(Sender: TObject);
begin
Close;
ShellExecute (0, Nil, 'https://members.tripod.com/~Jimmy_Reumuth', Nil, Nil, SW_ShowDefault);
end;
|