Re: Delphi : Url toewijzen aan een label

Article View: be.comp.programming

Article #6507

Back to be.comp.programming Previous Next

#6507

From: Jeffrey Drooghenbroodt
Date: Wed, 04 Dec 2002 12:30

27 lines
1754 bytes

JVB wrote:

> Hoe kan ik een url toewijzen aan een label ?
> Ik bedoel dus als je in een applicatie op een label klikt, je
> direct naar een website gaat.
> 
> Bij LMD- Tools bestaat zo een component die dit kan, maar het moet
> toch ook gewoon gaan met pascal code, of een standaard component
> van Borland zelf  ? 

Gewoon via ShellExecute (onderdeel van de unit ShellAPI, dus even in
je uses-lijst gooien) en het onclick-event van je label: 


uses
  ShellAPI;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', 'http://www.pebbels.be/', Nil, Nil, 0);
end;



Jeffrey
-- 
http://www.pebbels.be/

Technical Details

Message-ID: <Xns92DA8968D6364IIjeffrey@pebbels.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

References: <79mH9.34503$Ti2.5806@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,55db81c7143bc259
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-12-04 04:30:42 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
Newsgroups: be.comp.programming
Subject: Re: Delphi : Url toewijzen aan een label
From: Jeffrey Drooghenbroodt <jeffrey@pebbels.be>
References: <79mH9.34503$Ti2.5806@afrodite.telenet-ops.be>
Organization: pebbels.be
Message-ID: <Xns92DA8968D6364IIjeffrey@pebbels.be>
User-Agent: Xnews/05.08.12
X-Face: R,6JV<w[\BEmDM3mzdJ9|SGN1";:gXNhn}e>{7bax85RuLh:!)u0&Adqwej<0H&4URx?.E1`mIU#NKE(+Dh7vb}5RcP"zVk)*-Oa&~-ysYfn//>E=PhK
Lines: 27
Date: Wed, 04 Dec 2002 12:30:26 GMT
NNTP-Posting-Host: 213.224.161.118
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1039005026 213.224.161.118 (Wed, 04 Dec 2002 13:30:26 MET)
NNTP-Posting-Date: Wed, 04 Dec 2002 13:30:26 MET

Reply to Parent Message