Klasse manuell ändern

[gargano]

Hallo mkinzler,

hier mal das komplette Dilemma
die dfm ist vom Typ TGemIIIDeviceDataModule
Es geht um abstrakte KLassen

Delphi-Quellcode:

//-------- Die Basis Klasse

unit BaseUnit;

interface

uses SysUtils, Classes;

type
  TBaseClassClass=Class of TBaseClass;  
  TBaseClass = class (TDataModule)
  protected
 
  end;



implementation

end.

// Die eigentliche Unit------------
unit GemIIIDeviceUnit;

interface

uses
  SysUtils, Classes,BaseUnit;

type
// hier geändert von TDataModule in TBaseClass
  TGemIIIDeviceDataModule = class(TBaseClass)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  GemIIIDeviceDataModule: TGemIIIDeviceDataModule;

implementation

{$R *.dfm}

end.

// DFM, nach speichern und neu laden ist Clientheight usw eingetragen --------------------

object GemIIIDeviceDataModule: TGemIIIDeviceDataModule
  Left = 0
  Top = 0
  ClientHeight = 206
  ClientWidth = 312
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
end

Gruß
Gargano