|
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;
- Related chapters
-
System
- Related topics
-
Display a char map
Show special folders
Show system volume control
- For more
-
Win32 Programmer's reference
- Download source
|
