home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Objrepos / okcnhlp1.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  545b  |  32 lines
  1. unit OkCnHlp1;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  6.   Buttons, ExtCtrls, OkCancl1;
  7.  
  8. type
  9.   TOKHelpBottomDlg = class(TOKBottomDlg)
  10.     HelpBtn: TButton;
  11.     procedure HelpBtnClick(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   OKHelpBottomDlg: TOKHelpBottomDlg;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TOKHelpBottomDlg.HelpBtnClick(Sender: TObject);
  26. begin
  27.   Application.HelpContext(HelpContext);
  28. end;
  29.  
  30. end.
  31.  
  32.