Suche Home Einstellungen Anmelden Hilfe  

zurück zur Grobgliederung des Kurshalbjahres 12 / 1

zurück zur OOP Pascal Hauptseite

StdApp04.pas



{ Programmkopf }
program StpApp04;


{ Deklarationsteil }
uses
{$IFDEF VER70}
       OWindows,
{$ELSE}
       WObjects,
{$ENDIF}
       BWCC, WinProcsWinTypes ;

{$R StPApp.RES}
{$I  StPApp.INC}

type
        TStundenplanApplication  = object( TApplication )
           proocedure InitMainWindow; virtual;
       end;

        PStundenplanWindow  = ^TStundenplanWindow;
        TStundenplanWindow  = object( TWindow )
           constructor Init(AParent: PWindowsObject; ATitle: PChar);
           destructor   Done;        virtual;
           function       CanClose; virtual;
        end;



{ TStundenplanApplication }
procedure TStundenplanApplication.InitMainWindow;
var Text: array[0..255] of Char;
begin
    LoadString(HInstance, str_Anwendung, @Text, SizeOf(Text));
    MainWindow  := New( PWindow , Init(nil, Text));
end;


{ TStundenplanWindow }
constructor TStundenplanWindow.Init(AParent: PWindowsObject; ATitle: PChar);
var   ARect: TRect;
        AWindow: HWnd;
begin
  { TWindow.Init(AParent, ATitle); }            { bei TPW 1.0 / TPW 1.5 }
  inherited Init(AParent, ATitle);
   Attr.Menu :=LoadMenu(HInstance, MakeIntResource(men_StartMenue));
end;

destructor TStundenplanWindow.Done;
begin
  { TWindow.Done; }                                      { bei TPW 1.0 / TPW 1.5 }
  inherited Done;
end;

function TStundenplanWindow.CanClose: Boolean;
var Msg: TMessage;
begin
  CanClose:=False;
  CanClose:=BWCCMessageBox(HWindow, 'Das Programm wirklich beenden?',
                    'Hinweis', mb_IconQuestion + mb_YesNo + mb_DefButton2) = idYes;
  { CanClose reagiert zur Zeit nur auf Aktionen in der Titelleiste - in Listing 05 wird der PullDownMenü-Punkt }
   {"Beenden" mit eingebunden }
end;



var  StundenplanApplication : TStundenplanApplication ;


{ Anweisungsteil }
begin
    StundenplanApplication.Init('');
    StundenplanApplication.Run;
    StundenplanApplication.Done;
end.


Copyright by Gesamtschule Zepernick - Informatik 1993 - 1998
überarbeitete Version - Stand:  21. November 1998
geeigneter Einsatz unter TPW 1.0 / TPW 1.5 / BPW 7.0


 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Benutzer: gast • Besitzer: seminar • Zuletzt geändert am: