home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX08.ZIP / CONTROL3 / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-14  |  941 b   |  46 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Classes,
  7.   Graphics, Controls, StdCtrls,
  8.   Printers, Menus, Forms;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Label1: TLabel;
  13.     Edit1: TEdit;
  14.     Button1: TButton;
  15.     GroupBox1: TGroupBox;
  16.     CheckBox1: TCheckBox;
  17.     CheckBox2: TCheckBox;
  18.     RadioButton1: TRadioButton;
  19.     RadioButton2: TRadioButton;
  20.     procedure ControlDblClick(Sender: TObject);
  21.     procedure ControlClick(Sender: TObject);
  22.   end;
  23.  
  24. var
  25.   Form1: TForm1;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TForm1.ControlDblClick(Sender: TObject);
  32. begin
  33.   Edit1.Text := '─ΓεΘφεΘ ∙σδ≈εΩ φα ' +
  34.                 (Sender as TComponent).Name +
  35.                 ' (Ωδα±± ' + Sender.ClassName + ')';
  36. end;
  37.  
  38. procedure TForm1.ControlClick(Sender: TObject);
  39. begin
  40.   Edit1.Text := '┘σδ≈εΩ φα ' +
  41.                 (Sender as TComponent).Name +
  42.                 ' (Ωδα±± ' + Sender.ClassName + ')';
  43. end;
  44.  
  45. end.
  46.