home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / win95 / wpchessb.exe / Source / AboutForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-06-13  |  1.1 KB  |  59 lines
  1. unit AboutForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TAbout = class(TForm)
  11.     Panel: TPanel;
  12.     Image1: TImage;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     procedure Image1Click(Sender: TObject);
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure FormPaint(Sender: TObject);
  19.   private
  20.     { Private-Deklarationen }
  21.     FirstShow :Boolean;
  22.   public
  23.     { Public-Deklarationen }
  24.   end;
  25.  
  26. var
  27.   About: TAbout;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TAbout.Image1Click(Sender: TObject);
  34. begin
  35.      ModalResult:=mrOk;
  36. end;
  37.  
  38. procedure TAbout.FormCreate(Sender: TObject);
  39. begin
  40.      FirstShow :=True;
  41.      Hide;
  42. end;
  43.  
  44. procedure TAbout.FormPaint(Sender: TObject);
  45. begin
  46.      if FirstShow then
  47.      begin
  48.           ShowWindow(Application.Handle,SW_HIDE);
  49.           FirstShow     :=False;
  50.           Hide;
  51.           Panel.Visible :=True;
  52.           Width         :=326;
  53.           Height        :=246;
  54.           Position      :=poScreenCenter;
  55.      end;
  56. end;
  57.  
  58. end.
  59.