Power-Programmierung/CD1.mdf/pascal/das_buch/windows/mdi/gen_mdi.pas

Pascal/Delphi Source File | 1993-06-04 | 427 b | 25 lines

PROGRAM Gen_MDI;

USES WinTypes, WinProcs, OWindows;

{$R Gen_MDI.RES}

TYPE
  tMyApplication = OBJECT(tApplication)
    PROCEDURE InitMainWindow; VIRTUAL;
  END;

PROCEDURE tMyApplication.InitMainWindow;
BEGIN
  MainWindow := New(pMDIWindow, Init('MDI Test Program',LoadMenu(hInstance, 'Generic')));
END;

VAR
  MyApp : tMyApplication;

BEGIN
  MyApp.Init('MyProgram');
  MyApp.Run;
  MyApp.Done;
END.