<quote>Kan nogen fortælle mig hvordan man gør sådan at når man trykker på en knap så åbner den en hjemmeside?
På forhånd Tak</quote>
<b>Hvordan laver man et link... (Delphi)</b>
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...}
<pre>
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('
http://www.Dinhjemmeside.dk'),pchar(''),pchar(''),SW_SHOWNORMAL);end;
</pre>
<br>
..og for at lave email-links, så udskifter du
http://www.Dinhjemmeside.dk med
mailto:email@email.com, 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..:
<pre>
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;
</pre>
<br>
og for at lave linken sort igen, kan du ...
<pre>
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label1.Font.Color := clBlack;
end;
</pre>
<br>
..og så har man ligepludselig et par links, mester. Du kan også bruge fx. en anden's komponent onmousemove-funktion, med koden ovenover her, hvis linken er placeret fx. på en TGroupBox.
God fornøjelse og håber det var en hjælp!
Mvh.
Lars Haslev
Always Look On The Bright Side Of Life! :-)
*********************************