home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / oodb / layout.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-04-29  |  879 b   |  35 lines
  1. unit Layout;
  2.  
  3. interface
  4.  
  5.    uses Objects, MsgBox;
  6.  
  7.    procedure HandleError ( Mess: String );
  8.    procedure Inform ( R: TRect; Mess: String; Params: Pointer );
  9.    function  Confirm ( Mess: String ): Word;
  10.  
  11. implementation
  12.  
  13.    procedure HandleError ( Mess: String );
  14.        var C: Word;
  15.        begin
  16.           C := MessageBox ( Mess, nil, mfError + mfOKButton )
  17.        end;
  18.  
  19.    procedure Inform ( R: TRect; Mess: String; Params: Pointer );
  20.        var C: Word;
  21.        begin
  22.           C := MessageBoxRect ( R, Mess, Params,
  23.                                 mfInformation + mfOKButton )
  24.        end;
  25.  
  26.    function Confirm ( Mess: String ): Word;
  27.        var R: TRect;
  28.        begin
  29.           R.Assign (10,4,60,12);
  30.           Confirm := MessageBoxRect ( R, Mess, nil,
  31.                                       mfConfirmation + mfOKCancel )
  32.        end;
  33.  
  34.    end.
  35.