StdApp04.pas

{ Programmkopf }
program StpApp04;

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

{$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: