Search icon CANCEL
Subscription
0
Cart icon
Your Cart (0 item)
Close icon
You have no products in your basket yet
Arrow left icon
Explore Products
Best Sellers
New Releases
Books
Videos
Audiobooks
Learning Hub
Free Learning
Arrow right icon
Arrow up icon
GO TO TOP
Getting Started with Lazarus IDE

You're reading from   Getting Started with Lazarus IDE Get to grips with the basics of programming, debugging, creating, and documenting projects with the Lazarus IDE

Arrow left icon
Product type Paperback
Published in Feb 2013
Publisher Packt
ISBN-13 9781782163404
Length 116 pages
Edition 1st Edition
Languages
Tools
Arrow right icon
Author (1):
Arrow left icon
Roderick Person Roderick Person
Author Profile Icon Roderick Person
Roderick Person
Arrow right icon
View More author details
Toc

Expanding the Hello World application


Using Form1, from the Standard tab of the component palette, add three TEdit components, three TLabel components, and one TButton. From the Additional tab, add one TSpeedButton. From the Dialogs tab, add one TCalendarDialog to Form1.

Click on Label1. In the Object Inspector window, locate the the property Caption. Click on the current value of Caption, which is Label1, and change it to First Name. Follow the same procedure:

  1. Change the caption Label2 to Last Name.

  2. Change caption Label3 to Date Of Birth.

  3. Change the caption TSpeedButton to "..." (without the quotes).

  4. Change the caption Button1 to Execute.

  5. Change the caption Button2 Caption to Exit.

When completed, the form should look similar to the following screenshot:

Double-click on Button2, and add the following code snippet to the Button2Click procedure:

Application.Terminate;

In the implementation section, add a new method called GetUserName:

function TForm1.GetUserName();
begin
  result Edit1.Text + ' ' +...
lock icon The rest of the chapter is locked
Register for a free Packt account to unlock a world of extra content!
A free Packt account unlocks extra newsletters, articles, discounted offers, and much more. Start advancing your knowledge today.
Unlock this book and the full library FREE for 7 days
Get unlimited access to 7000+ expert-authored eBooks and videos courses covering every tech area you can think of
Renews at $19.99/month. Cancel anytime
Banner background image