home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / objects / classex / props / main.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  1KB  |  72 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: PROPS }
  5.  
  6. { Very simple minded example showing how to use
  7.   and create a property. The property shown here
  8.   has nothing to do with the Height property that
  9.   is part of a TForm. }
  10.  
  11. interface
  12.  
  13. uses
  14.   WinTypes, WinProcs, SysUtils,
  15.   Classes, Graphics, Forms,
  16.   Controls, StdCtrls;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     BSetHeight: TButton;
  21.     BGetHeight: TButton;
  22.     Edit1: TEdit;
  23.     procedure BGetHeightClick(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure BSetHeightClick(Sender: TObject);
  26.   private
  27.     FHeight: Integer;
  28.     function GetHeight: Integer;
  29.     procedure SetHeight(NewHeight: Integer);
  30.   public
  31.     property Height: Integer read GetHeight write SetHeight;
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.SetHeight(NewHeight: Integer);
  42. begin
  43.   FHeight := NewHeight;
  44. end;
  45.  
  46. function TForm1.GetHeight: Integer;
  47. begin
  48.   GetHeight := FHeight;
  49. end;
  50.  
  51. procedure TForm1.FormCreate(Sender: TObject);
  52. begin
  53.   FHeight := 2;
  54.   Edit1.Text := '';
  55. end;
  56.  
  57. procedure TForm1.BGetHeightClick(Sender: TObject);
  58. var
  59.   S: String;
  60. begin
  61.   S := IntToStr(GetHeight);
  62.   Edit1.Text := S;
  63. end;
  64.  
  65. procedure TForm1.BSetHeightClick(Sender: TObject);
  66. begin
  67.   Height := StrToInt(Edit1.Text);
  68.   Edit1.Text := '';
  69. end;
  70.  
  71. end.
  72.