home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pctchnqs / 1991 / number5 / dlg / dlgshow.pas < prev    next >
Pascal/Delphi Source File  |  1991-10-01  |  1KB  |  51 lines
  1. { dlgshow.pas by Tom Swan -- Display a dialog box }
  2.  
  3. program DlgShow;
  4.  
  5. {$IFDEF BWCC}
  6. {$R notes.res}
  7. uses WinTypes, WinProcs, WObjectB, IDs;
  8. {$ELSE}
  9. {$R notesx.res}
  10. uses WinTypes, WinProcs, WObjects, IDs;
  11. {$ENDIF}
  12.  
  13. type
  14.   TDlgApp = object(TApplication)
  15.     procedure InitMainWindow; virtual;
  16.   end;
  17.  
  18.   PDlgWin = ^TDlgWin;
  19.   TDlgWin = object(TWindow)
  20.     constructor Init(AParent: PWindowsObject; ATitle: PChar);
  21.     procedure CMDialogDisplay(var Msg: TMessage);
  22.       virtual cm_First + cm_DialogShow;
  23.   end;
  24.  
  25. procedure TDlgApp.InitMainWindow;
  26. begin
  27.   MainWindow := New(PDlgWin, Init(nil, 'DlgShow'));
  28. end;
  29.  
  30. constructor TDlgWin.Init(AParent: PWindowsObject; ATitle: PChar);
  31. begin
  32.   TWindow.Init(AParent, ATitle);
  33.   Attr.Menu := LoadMenu(HInstance, PChar(id_Menu));
  34. end;
  35.  
  36. procedure TDlgWin.CMDialogDisplay(var Msg: TMessage);
  37. var Dialog: TDialog;
  38. begin
  39.   Dialog.Init(@Self, PChar(id_NotesDlg));
  40.   Dialog.Execute;
  41.   Dialog.Done;
  42. end;
  43.  
  44. var
  45.   DlgApp: TDlgApp;
  46. begin
  47.   DlgApp.Init('DlgShow');
  48.   DlgApp.Run;
  49.   DlgApp.Done;
  50. end.
  51.