home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / ctenari / Hadraba / Source / AboutForm.pas < prev    next >
Pascal/Delphi Source File  |  2002-06-12  |  2KB  |  77 lines
  1. unit AboutForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   TAboutForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Image1: TImage;
  13.     Bevel1: TBevel;
  14.     Bevel2: TBevel;
  15.     Bevel3: TBevel;
  16.     Bevel4: TBevel;
  17.     Bevel5: TBevel;
  18.     URLStaticText1: TStaticText;
  19.     EMailStaticText1: TStaticText;
  20.     URLKeyStaticText1: TStaticText;
  21.     EMailKeyStaticText1: TStaticText;
  22.     procedure URLStaticText1Click(Sender: TObject);
  23.     procedure EMailStaticText1Click(Sender: TObject);
  24.     procedure OnCloseClick(Sender: TObject);
  25.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  26.       Shift: TShiftState);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   AboutForm1: TAboutForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. uses
  41.   ShellAPI, EventForm;
  42.  
  43. procedure TAboutForm1.URLStaticText1Click(Sender: TObject);
  44. begin
  45.   If ShellExecute(0, 'open', 'http://www.volny.cz/hadraba-soft',
  46.     '', '', SW_ShowNormal) <= 32 then
  47.     EventForm1.Execute(ARE_CantExec);
  48. end;
  49.  
  50. procedure TAboutForm1.EMailStaticText1Click(Sender: TObject);
  51. begin
  52.   If ShellExecute(0, 'open', 'mailto:hadrabap@volny.cz',
  53.     '', '', SW_ShowNormal) <= 32 then
  54.     EventForm1.Execute(ARE_CantExec);
  55. end;
  56.  
  57. procedure TAboutForm1.OnCloseClick(Sender: TObject);
  58. begin
  59.   Close;
  60. end;
  61.  
  62. procedure TAboutForm1.FormKeyDown(Sender: TObject; var Key: Word;
  63.   Shift: TShiftState);
  64. begin
  65.   case Key of
  66.     Ord('c'), Ord('C'):
  67.       EMailStaticText1Click(Sender);
  68.     Ord('s'), Ord('S'):
  69.       URLStaticText1Click(Sender);
  70.   else
  71.     Close;
  72.   end;
  73. end;
  74.  
  75. end.
  76.  
  77.