Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Create Internet link

Title: 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;