home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Dcomplib / ASSISTNT.LZH / FORM.PAS < prev    next >
Pascal/Delphi Source File  |  1997-03-16  |  2KB  |  106 lines
  1. unit Form;
  2.  
  3. interface
  4.  
  5. {$Ifdef win32}
  6. uses
  7.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  8.   Forms, Dialogs, StdCtrls, ExtCtrls, Assi32, Assi16 ;
  9. {$else}
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, ExtCtrls, Assi16 ;
  13. {$endif}
  14.  
  15.  
  16. type
  17.   TForm2 = class(TForm)
  18.     Assistent1: TAssistent;
  19.     ABox8: TABox;
  20.     Label6: TLabel;
  21.     ABox9: TABox;
  22.     Label7: TLabel;
  23.     ABox10: TABox;
  24.     Label8: TLabel;
  25.     ABox12: TABox;
  26.     Label10: TLabel;
  27.     ABox1: TABox;
  28.     Image1: TImage;
  29.     ABox2: TABox;
  30.     Label1: TLabel;
  31.     ABox3: TABox;
  32.     Label2: TLabel;
  33.     AGroupBox1: TAGroupBox;
  34.     Edit1: TEdit;
  35.     ABox4: TABox;
  36.     Memo1: TMemo;
  37.     ABox5: TABox;
  38.     Label3: TLabel;
  39.     AGroupBox2: TAGroupBox;
  40.     Button1: TButton;
  41.     AGroupBox3: TAGroupBox;
  42.     CheckBox1: TCheckBox;
  43.     CheckBox2: TCheckBox;
  44.     CheckBox3: TCheckBox;
  45.     ABox6: TABox;
  46.     Label4: TLabel;
  47.     ABox7: TABox;
  48.     Label5: TLabel;
  49.     ABox11: TABox;
  50.     Label9: TLabel;
  51.     ABox13: TABox;
  52.     Label11: TLabel;
  53.     procedure Button1Click(Sender: TObject);
  54.     procedure CheckBox1Click(Sender: TObject);
  55.     procedure CheckBox2Click(Sender: TObject);
  56.     procedure CheckBox3Click(Sender: TObject);
  57.     procedure Assistent1HelpClick(sender: TAssistent; page: Integer);
  58.   private
  59.     { Private-Deklarationen }
  60.   public
  61.     { Public-Deklarationen }
  62.   end;
  63.  
  64. var
  65.   Form2: TForm2;
  66.  
  67. implementation
  68.  
  69. {$R *.DFM}
  70.  
  71. procedure TForm2.Button1Click(Sender: TObject);
  72. begin
  73.   if assistent1.page=0 then
  74.     begin
  75.       showmessage('You have pressed the "Click me!" Button in Dialog mode.');
  76.     end
  77.   else
  78.     begin
  79.       showmessage('You have pressed the "Click me!" Button in Assistent mode.'+#13+
  80.                  'Assistent will jump to page 4!');
  81.       Assistent1.page:=4;
  82.     end;
  83. end;
  84.  
  85. procedure TForm2.CheckBox1Click(Sender: TObject);
  86. begin
  87.   assistent1.showhelpbutton:=checkbox1.checked;
  88. end;
  89.  
  90. procedure TForm2.CheckBox2Click(Sender: TObject);
  91. begin
  92.   assistent1.showchangebutton:=checkbox2.checked;
  93. end;
  94.  
  95. procedure TForm2.CheckBox3Click(Sender: TObject);
  96. begin
  97.   assistent1.showassistentok:=checkbox3.checked;
  98. end;
  99.  
  100. procedure TForm2.Assistent1HelpClick(sender: TAssistent; page: Integer);
  101. begin
  102.   showmessage('You have pressed the Help-Button');
  103. end;
  104.  
  105. end.
  106.