Create Internet link

Posted in Internet

We will create Lable component as internet link. We will change color and cursor type, when user move mouse on this label. When user will click on this label, we will run Internet Explorer and go to "http://www.greatisdelphi.com" link.

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clBlue;
  Cursor:=crHandPoint;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clBlack;
  Cursor:=crDefault;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(
    Application.Handle,
    'open',
    'http://www.greatisdelphi.com',
    nil,
    nil,
    0);
end;