Delphi-PRAXiS - OOP Dialog-Template based on Windows API dialog resources

Ich habe mir mal eine nonVCL-Dialog Vorlage erstellt, also quasi so etwas, wie ein Grundgerüst. Ich habe das jetzt mal objekt orientiert programmier nach dem ich so ein Grundgerüst lange Zeit nur prozedural hatte:

Delphi-Quellcode:

			type

  TMpuDialog = class(TObject)

  private

    FHandle: THandle;

    FhAccelTbl: THandle;

    FDlgFuncPtr: Pointer;

    FMsg: UINT;

    FwParam: WPARAM;

    FlParam: LPARAM;

    FAppTitle: WideString;

    FhDlgIcon: THandle;

    FLogFont: TLogFont;

    FhBannerFont: THandle;

    function MakeProcInstance(M: TMethod): Pointer;

    function DlgFunc(hDlg: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;

    // Getters / Setters

    function GethApp: THandle;

    function GetAppTitle: WideString;

    procedure SetAppTitle(Value: WideString);

    function GetIcon: THandle;

    procedure SetIcon(Value: THandle);

    // Internal methodes

    function Run: Integer;

    procedure SetDlgCaption;

    procedure SetBannerCaption;

    procedure SetDlgIcon;

    // Event handlers

    procedure OnInitDialog(hDlg: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM);

    procedure OnWMSize(wParam: WPARAM; lParam: LPARAM);

    function OnCommad: Boolean;

    procedure OnClose(ExitCode: Integer = 0);

  public

    constructor Create;

    destructor Destroy; override;

    property Handle: THandle read GethApp;

    property AppTitle: WideString read GetAppTitle write SetAppTitle;

    property Icon: THandle read GetIcon write SetIcon;

  end;

Und ein Auszug aus der Readme:

Code:

			                                                         Applies to version: 1.0

                                                                Date: 2007-09-06

                         OOPDialog Readme file

                         =====================

  1. What is it?

  --------------

    OOPDialog is a Delphi object orientated Dialog-Template based on Windows API

    Dialog resources.

  2. Archive content and directory structure

  ------------------------------------------

  [..]

  3. How to use

  -------------

    3.1 Prearrangements

      Resource file: Main dialog ID = 100.

                     Accelerator table ID = 4001.

                     Needed version information for the about dialog: 

             FileVersion, FileDescription, Legal copyright,

             ProductName, Productversion.

                     Main icon ID = 1.

                     To compile the resource script use resbuild.bat.

      make.bat: If you want to use make.bat, make sure it can find the program

                rcstamp.exe for automatically increment the build number.

                rcstamp: [url]http://www.codeproject.com/tools/rcstamp.asp[/url]

                The binary gets automatically packed bei UPX. Make sure make.bat

                can find upx.exe.

    3.2 Constants

      The tooltips array must contain the tooltip strings in the same order in

      which they are assigned to the corresponding controls, because they get

      assigned with a for-loop. See method OnInitDialog for details.

    3.3 Using the template

      Just adjust the personal settings (icon, productname, ...) in the resource

      script, edit the dialog (add / remove controls) and add your own code.

  4. How it works

  ---------------

    For details see:

    [url]http://www.michael-puff.de/Developer/Artikel/2007_08/[/url] ->

      2007_08_02_CallbackMethod.php

                                                      Copyright (c) Michael Puff

                                                      [url]http://www.michael-puff.de[/url]

Eventuell kann ja jemand etwas damit anfangen oder hat Verbesserungsvorschläge. Einen hätte ich schon selber und zwar die Klasse "rausziehen" und eine neue Dialog-Klasse ableiten. Aber das habe ich noch nicht umgesetzt.