Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Internet

⤷ Create Internet link

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;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes