home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / pascal / d_engine / engine / testdlg.pdl < prev    next >
Encoding:
Text File  |  1992-05-09  |  887 b   |  49 lines
  1. uses WinTypes, WinProcs, WObjects,##;
  2.  
  3.  
  4. type
  5.   PMainWindow = ^TMainWindow;
  6.   TMainWindow = object(TWindow)
  7.     constructor Init(ATitle: PChar);
  8.     procedure setupwindow;virtual;
  9.   end;
  10.  
  11.   TPopupApp = object(TApplication)
  12.     procedure InitMainWindow; virtual;
  13.   end;
  14.  
  15. var PopupApp: TPopupApp;
  16.  
  17.  
  18. constructor TMainWindow.Init(ATitle: PChar);
  19. begin
  20.   TWindow.Init(nil, ATitle);
  21.   Attr.X := 0;
  22.   Attr.Y := 0;
  23.   Attr.W := 0;
  24.   Attr.H := 0;
  25.   Attr.Style:=0
  26. end;
  27.  
  28. procedure tmainwindow.setupwindow;
  29.   var d:P##;
  30.   begin
  31.     showwindow(hwindow,sw_hide);
  32.     d:=New(P##,init(@self,'#@'));
  33.     Application^.ExecDialog(D);
  34.     postmessage(hwindow,wm_close,0,0);
  35.   end;
  36.  
  37.  
  38.  
  39. procedure TPopupApp.InitMainWindow;
  40. begin
  41.   MainWindow := New(PMainWindow, Init('Parent Window'));
  42. end;
  43.  
  44. begin
  45.   PopupApp.Init('TestDlg');
  46.   PopupApp.Run;
  47.   PopupApp.Done;
  48. end.
  49.