Solved

Clickable url component for D2

Posted on 1997-09-06
1
130 Views
Last Modified: 2010-04-04
Does anyone know of a Freeware Url Launching Component which works
with both IE and Netscape??

Along the same lines as UrlLabel, unfortunately, it doesn't like
Netscape
0
Comment
Question by:joshordan
1 Comment
 
LVL 4

Accepted Solution

by:
itamar earned 50 total points
ID: 1344212
If you need to click something and launch the user web default browser, you can do it by yourself:
(Sorry if i didn't understand your question)
>>>>>>>>>>>

            unit Unit1;

            interface

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

            type
              TForm1 = class(TForm)
                btnGO: TButton;
                edtURL: TEdit;
            procedure btnGOClick(Sender: TObject);
            procedure ExecuteFile(Command, Params,
            WorkDir:string);
              private
                { Private declarations }
              public
                { Public declarations }
              end;

            var
              Form1: TForm1;

            implementation

            {$R *.DFM}

            procedure TForm1.ExecuteFile(Command, Params,
            WorkDir:string);
            var aux : integer;
            begin
            { convert Pascal string to Null-termintated strings }
            Command := Command + #0;
            Params := Params + #0;
            WorkDir := WorkDir + #0;
            { run/open application/file }
            aux := ShellExecute(Self.Handle,'Open',@Command[1],

            @Params[1], @WorkDir[1], SW_SHOWNORMAL);
            if aux < 32 Then
            MessageDlg('Could not execute ' +
            Command,mtError,[mbOK],0);
            end;

            procedure TForm1.btnGOClick(Sender: TObject);
            begin
            If edtURL.Text <> '' Then
            ExecuteFile('http://' + edtURL.Text,'','');
            end;

            end.
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now