home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap06 / hello / main.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  1KB  |  58 lines

  1. unit Main;
  2.  
  3. { Program copyright (c) 1994 by Charles Calvert }
  4. { Project Name: HELLO }
  5.  
  6. { This program shows how to retrieve strings
  7.   from an edit control and to then perform
  8.   simple operations on the strings you retrieve.
  9.   It also shows how to close a form in response
  10.   to clicks on a button. }
  11.  
  12. interface
  13.  
  14. uses
  15.   WinTypes, WinProcs,
  16.   Classes, Graphics,
  17.   Controls, Forms, StdCtrls;
  18.  
  19. type
  20.   THelloForm = class(TForm)
  21.     Edit1: TEdit;
  22.     Edit2: TEdit;
  23.     BOk: TButton;
  24.     LEnterName: TLabel;
  25.     BConfirm: TButton;
  26.     procedure BOkClick(Sender: TObject);
  27.     procedure BConfirmClick(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.   end;
  30.  
  31. var
  32.   HelloForm: THelloForm;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure THelloForm.BOkClick(Sender: TObject);
  39. begin
  40.   Close;
  41. end;
  42.  
  43. procedure THelloForm.BConfirmClick(Sender: TObject);
  44. var
  45.   Name: String;
  46. begin
  47.   Name := Edit1.Text;
  48.   Edit2.Text := 'You entered: ' + Name;
  49. end;
  50.  
  51. procedure THelloForm.FormCreate(Sender: TObject);
  52. begin
  53.   Edit1.Text := '';
  54.   Edit2.Text := '';
  55. end;
  56.  
  57. end.
  58.