BorlandTalk.com

Stefan Sidholm · Guest

Hi,

How do I create a Link to a website on a form.
I've seen links that looks like labels but havent found any components that
would do that.

Grateful for any tips.

/Stefan sidholm

Jari Kettunen · Guest

Following is one way to do it.

procedure TForm1.Label1Click(Sender: TObject);
begin
WWW('www.myhomepage.com');
end;

function Regkey(Key: HKEY; Subkey: string; var Data: string): Longint;
var
H : HKEY;
tData: array[0..259] of Char;
dSize: Integer;
begin
Result := RegOpenKeyEx(Key, PChar(Subkey), 0, KEY_QUERY_VALUE, H);
if Result = ERROR_SUCCESS then
begin
dSize := Sizeof(tData);
RegQueryValue(H, nil, tData, dSize);
Data := StrPas(tData);
RegCloseKey(H);
end;
end;

procedure WWW(page:String);
var
P : Integer;
Key: string;
begin
if Regkey(HKEY_CLASSES_ROOT, '.htm', Key) = ERROR_SUCCESS then
begin
Key := Key + 'shellopencommand';
if Regkey(HKEY_CLASSES_ROOT, Key, Key) = ERROR_SUCCESS then
begin
P := Pos('"%1"', Key);
if P = 0 then
P := Pos('%1', Key);
if P <> 0 then
setlength(Key, P - 1);
Key := Key + ' ' + page;
if WinExec(PChar(Key), SW_SHOWNORMAL) < 32 then
showMessage('Cannot find browser');
end;
end;
end;

"Stefan Sidholm"

Andrew Jameson · Guest

Hmm ... maybe this is simpler ...

Add ShellAPI to your uses ...

procedure TForm1.lbWebSiteClick(Sender : TObject);
const
rSoftSpotWebsite = 'www.softspotsoftware.com';
begin
ShellExecute(Application.Handle, 'Open', PChar(rSoftSpotWebsite), nil,
nil, SW_NORMAL);
end; {lbWebSiteClick}

Andrew

Mike Shkolnik · Guest

You may use our freeware SMURLLabel component:
http://www.scalabium.com/urllbl.htm (info)
http://www.scalabium.com/download/smcmpnt.zip (archive with freeware
SMComponent library)

--
With best regards, Mike Shkolnik
EMail: [email]mshkolnik (AT) scalabium (DOT) com[/email]
http://www.scalabium.com

"Stefan Sidholm" <stefan.sidholm (AT) uc (DOT) se> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: news:3f24e645$1 (AT) newsgroups (DOT) borland.com...