Have you ever found an application that is made using Delphi where there is label, edit, or other components that when you click will bring you to a certain website address? If yes, have you ever thought how to make it? To make that application, please follow this writing orderly and thorough
Enter the following component into design form.
|1||Label1||Caption||Go to Web|
Arrange component so that become as follows.
Add ShellAPI in uses so that become.
Next is type the source code as follows in button 1 event OnClick.
if Trim(Edit1.Text) <> '' then
ShellExecute(Handle, nil, PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);
Please execute the program that is made then Click on Button 1 (GO)
You will be brought to visit website address like the following picture below.
I hope this article can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing
|Share this on Facebook|