home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / BANKOMAT / PROGRAM / CODE03.KL3 < prev    next >
Text File  |  1999-03-28  |  308b  |  14 lines
  1. Program About;
  2.  
  3. procedure TForm.FormCreate(Sender: TObject);
  4. begin
  5.   Form.Left:=(SysVarGet('fleft')+(SysVarGet('fwidth')/2 ))-(Form.Width/2);
  6.   Form.Top :=(SysVarGet('ftop') +(SysVarGet('fheight')/2))-(Form.Height/2);
  7.   If Form.Left<0 Then Begin
  8.     Form.Left:=0;Form.Top:=0;
  9.   End;
  10.  
  11. end;
  12.  
  13. end.
  14.