Procedure TForm.xyz in Unit

[Fussball-Robby]

So, jetzt wurde hier mal genug spekuliert, was ich wissen wollte :wink:
Im Prinzip will ich das machen, was im letzten Beispiel hier gezeigt wurde. Das mit der abgeleiteten Formklasse hatte ich ja auch so gemacht. Jetzt will ich aber in der MainUnit nicht jedesmal das Formular von dieser neuen Klasse ableiten, deshalb hatte ich in der LibUnit eine Ableitung einer Ableitung von TForm gemacht, sodass die neue Klasse TForm hieß und ich in der MainUnit nichts mehr ableiten musste. Das hat dann auch geklappt. Denn dadurch, dass die doppelt abgeleitete Klasse nun TForm heißt, muss ich in der MainUnit nichts mehr ableiten.
Ich habs jetzt so gemacht:

Delphi-Quellcode:

Unit LibUnit;

uses
  Forms;


type
  TUForm = class(TForm);
  TForm = class(TUForm)
    ..
    Procedure xyz(S: String);
    ..
  end;

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

Unit MainForm;

uses
  LibUnit;

type
  TForm1 = class(TForm)
  ...
  ...
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  xyz('A');
end;

Auch, wenn das mit der doppelten Ableitung komisch aussieht, es funktioniert. Meine Frage war jetzt eigentlich nur, ob es irgendwie einfacher geht bzw. ob diese Lösung in irgendeiner Weise Probleme machen könnte.

Mfg

[mkinzler]

Wie beschrieben ist es ab D10 möglich einen Class-Helper zu implementieren, und damit die Klasse ohen Ableitung zu erweitern.

[Fussball-Robby]

Das hilft mir aber nicht weiter :wink:
Also so wie ich das jetzt bisher mitbekommen habe, gibts dafür keine bessere Lösung. Dann werd ich das so lassen. Bin für Verbesserungsvorschläge aber trotzdem offen.

Mfg

[mkinzler]

Doch auf eine neuere Delphiversion umsteigen. TDE kann viel mehr als D5 Std

[Fussball-Robby]

Zitat:

Zitat von mkinzler

Doch auf eine neuere Delphiversion umsteigen. TDE kann viel mehr als D5 Std

Wäre natürlich eine Idee, hilft mir im Moment aber auch nicht. Ich wollte mir sowieso bald eine neue Version holen.
Danke für die Hilfe

Mfg