Link til www

Se hvordan du kan lige links her: http://www.eksperten.dk/spm/29827

Hvis du IE er sat rigtigt op, så vil den automatisk ringe op hvis der ikke er forbindelse. Kig under fanebladet Connections i Internet Options i IE

Snowball

USES ShellAPI

Shellexecute(...);

Placer 2 labels på den form. Lad label1 og label2 have samme mouseMoveEvent. Giv dem hvert deres onClick event. Og skriv så det følgende :


unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  ShellAPI;
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(handle,\'open\',PChar(\'mailto:\'+ (Sender as TLabel).Caption),\'\',\'\',SW_SHOWNORMAL);
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  with (Sender as TLabel) do
  begin
    Font.Color := clBlue;
    Font.Style := [fsBold,fsUnderline];
    Cursor := crHandPoint;
  end;
end;

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

  Label2.Font.Color := clBlack;
  Label2.Font.Style := [fsBold];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := \'Jens@Borrisholt.com\';
  Label2.Caption := \'http://Borrisholt.com\';
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  ShellExecute(handle,\'open\',PChar((Sender as TLabel).Caption),\'\',\'\',SW_SHOWNORMAL);
end;

end.


Så har du lidt WEB efekt over det ...

Se i øvrigt : http://www.eksperten.dk/spm/27023
Jens B

Start hjemmeside fra dit program:

ShellExecute(Form1.Handle,
              nil,
              \'http://www.borland.com\',
              nil,             
          nil,
              SW_SHOWNORMAL);

NB: ShellAPI skal tilføjes i uses-clause :-)

M.V.H ProDoc

WUPS det må I undskylde...
Ny bruger her havde ikke lige fundet ud af hvordan man ændrede indstillingerne...
så her er koden lige igen...

ShellExecute(Form1.Handle,
              nil,
              \'(hjemmesideadresse her)\',
              nil,             
          nil,
              SW_SHOWNORMAL);

NB: ShellAPI skal tilføjes i uses-clause :-)

M.V.V. ProDoc