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