So, jetzt wurde hier mal genug spekuliert, was ich wissen wollte
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