Category: Components
Title: Create Internet link in Tlabel
Date added: 15.03.2006
Hits: 2467


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.delphitricks.com',
    nil,
    nil,
    0);
end;

1. How to detect if the scrollbars of a TStringGrid are visible? (2719 Hits)

2. How to change the default cell selection color in a TStringGrid? (3053 Hits)

3. How to force the input in a TEdit? (1711 Hits)

4. How to move a menu items? (1587 Hits)

5. How to check if a Stringgrid cell is selected? (4854 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.