home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / EDCLEAR.ZIP / Example / MainUnit.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-11-14  |  809 b   |  46 lines
  1. unit MainUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, HQClearAll;
  8.  
  9. type
  10.   TMain = class(TForm)
  11.     HQClearAll1: THQClearAll;
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     Button1: TButton;
  16.     Button2: TButton;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button2Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Main: TMain;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TMain.Button1Click(Sender: TObject);
  33. begin
  34. HQClearAll1.Change := False;
  35. HQClearAll1.Start;
  36. end;
  37.  
  38. procedure TMain.Button2Click(Sender: TObject);
  39. begin
  40. HQClearAll1.Change := True;
  41. HQClearAll1.ChangeText := 'Clear';
  42. HQClearAll1.Start;
  43. end;
  44.  
  45. end.
  46.