Mehrere Klassen von einer Klasse ableiten

[gargano]

Hallo Bummi,

danke für die Antwort, leider kann ich Dein Beispiel nicht auf mein Problem abbilden.

Könntest Du bitte
TBaseClassClass=Class of TBaseClass;
in meinem Beispiel einfügen, damit ich damit klarkomme
Danke im Vorraus.

Gruß
Gargano

[gargano]

Hallo Bummi,

super, das haut erstmal hin.

Eins ist noch sehr merkwürdig und führt zum Nichtfunktionieren:
TDeviceModule1 ist ja class(TBaseClass) abgeleitet von TDataModule.
In Design Tab wird auch ein TDataModule gezeigt.
Nur wenn ich das Projekt schließe und wieder öffne ist jetzt im Design Tab ein TForm abgebildet ?

Was kann das sein ?

Gruß
Gargano

[himitsu]

Mach mal die DFM auf und schau was in der ersten Zeile drinsteht.

DFM mit einem Texteditor öffnen (die darf natürlich nicht im Binär-Format gespeichert sein ... Rechtsklick im Formeditor und Text-DFM auswählen, falls falsches Format)
oder im Form-Editor Alt+F12 drücken

[gargano]

Hallo Bummi,

das steht da drin

Delphi-Quellcode:

object DeviceModule1: TDeviceModule1
  Left = 0
  Top = 0
  ClientHeight = 116
  ClientWidth = 207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  PixelsPerInch = 96
  TextHeight = 13
end

Gruß
Gargano

[himitsu]

Gut, das sieht OK aus.

Delphi-Quellcode:

interface

....

type
  TBaseClass = class(...
    ...
  end;

...

procedure Register;

implementation

procedure Register;
begin
  RegisterClass(TBaseClass);
end;

...

Und nun diese Unit in ein Package rein, welches du im Delphi registrierst.
(irgend wo her muß Delphi, bzw. der Formdesigner, diese Klasse auch kennen)


Ach ja, FindClass geht über eine Liste, welche mit RegisterClass befüllt wurde.
Ist die Klasse dort nicht drinn, dann kann sie nicht gefunden werden, weder von dir (FindClass), noch von dem VCL-Form-Editor.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyDevice := FindClass('TDeviceModule1') as TBaseClass;
  if not Assigned(MyDevice) then
    raise Exception.Create('TDeviceModule1 wurde nicht gefunden');
  TBaseClass(MyDevice).Create(Self);
end;

Genauso wie TBaseClass für den Form-Editor registriert sein muß, muß auch TDeviceModule1 dort registriert sein, wenn du es über FindClass finden/erstellen willst.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyClass:  TBaseClassClass;
  MyDevice: TBaseClass;
begin
  MyClass := TDeviceModule1;
  MyDevice := MyClass.Create(Self);
  MyDevice.DoSomethingImportant;
  MyDevice.Free;
end;

[gargano]

Hallo Himitsu,

wie kann es aber sein daß in einem Nachfahren von TDatamodule Eigenschaften wie Clientwidth und Font enthalten sind ?
(TDeviceModule2 ist eine Klasse von TBaseClass, die wiederum eine Klasse von TDatamodule ist)

Gruß
Gargano

[himitsu]

Meinst du im OI oder im Quellcode (Codeverfollständigung) ?


Im OI ... wenn die VCL die falsche Klasse erwischt, bzw. es als TForm läd, obwohl es was Anderes ist.