Links

Se her: http://www.eksperten.dk/spm/29827

Snowball

hejsa

Du sætter en label på din form og skriver WEB adreesen i den fx. Http://borrisholt.con , HUSK http://

Så laver du en OnCreate Event på din form, og et mouse move ligeledes på din form. Der efter laver du en onMouseMove event på din label samt en onclcick event på din label og så skriver du det følgende kode :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ShellAPi;

{$R *.DFM}





procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Font.Color := clBlue;
  Label1.Font.Style := [];
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  Label1.Font.Color := clBlue;
  Label1.Font.Style := [];
  Cursor := crArrow;
end;

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

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExeCute(0,\'open\',Pchar(Label1.Caption),\'\',\'\',SW_NORMAL);
end;

end.

Jens B