link til hjemmeside

Hvordan laver man et link...

For at lave et link at du gøre følgende:
{Husk lige at inkludere shellAPI i din usesliste, ellers får du en mærkelig error, der slet ikke er til at hitte ud af...}


procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,\'open\',PChar(\'http://www.Dinhjemmeside.dk\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL);
end;








..og for at lave email-links, så udskifter du
http://www.Dinhjemmeside.dk med mailto:email@email.com :P; ligesom når du laver links i din html editor.
Samtidig med det, kan du benytte labelen\'s onmouseover funktion til at lave lidt farve..

Tilføj ShellAPI under Uses !

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,PChar(\'open\'),PChar(\'http://www.eksperten.dk\'),PChar(\'\'),PChar(\'\'),SW_SHOWNORMAL)
end;

Snowball

ups her er hele teksten

Hvordan laver man et link...

For at lave et link at du gøre følgende:
{Husk lige at inkludere shellAPI i din usesliste, ellers får du en mærkelig error, der slet ikke er til at hitte ud af...}


procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,\'open\',PChar(\'http://www.Dinhjemmeside.dk\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL);
end;








..og for at lave email-links, så udskifter du
http://www.Dinhjemmeside.dk med mailto:email@email.com :P; ligesom når du laver links i din html editor.
Samtidig med det, kan du benytte labelen\'s onmouseover funktion til at lave lidt farve..

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





og for at lave linken sort igen, kan du ...

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





..og så har man ligepludselig et par links, mester. Du kan også bruge fx. en anden\'s komponent onmousemove-funktion, med koden ovenover her.
God fornøjelse.

http://www.udvikleren.dk/vis_tips.php4?kat=2

Hvis du har Delphi 5 Enterprise versionen, kan du bare åbne deres Webbrowser-eksempel, og skrive følgende kode:

Urls.text := \'http://www.EnHjemmeside.dk\';

men hvordan kan man gøre sådan at at linket ikke er understreget når musen flyttes væk?

Label4 er din label med dit link:

procedure TFAbout.FormCreate(Sender: TObject);
begin
  Label8.Caption := Main.frmPing.ver;
  Label4.Font.Color := clBlack;
  Label4.Font.Style := [fsBold];

end;

procedure TFAbout.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,\'open\',PChar(http://www.eksperten.dk\'),\'\',\'\',SW_SHOWNORMAL);
end;

procedure TFAbout.Label4MouseMove(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 TFAbout.Label4MouseLeave(Sender: TObject);
begin
  Label4.Font.Color := clBlack;
  Label4.Font.Style := [fsBold];
end;

Snowball

hehe, I brugte mit tip fra udvikleren :)