Problem mit Vererbung auf Frames

[Samufi]

Wenn ich das jetzt richtig verstanden habe, geht das also nicht... Na gut, ist auch nicht so schlimm, die Funktion kann ich ja auch in jede einzelne Unit kopieren. Trotzdem Danke fürs Antworten. Was das Programmierdesign angeht, da muss ich sowieso noch eine Menge lernen. Mit den beiden genannten Begriffen kann ich im Moment noch gar nichts anfangen, ich werde mich bei Gelegenheit mal damit befassen. Im Moment interessiert mich vor allem, dass es funktioniert...

[Bernhard Geyer]

Gut das du lernen willst. Hier mal die Basisunit umgebaut (soweit ich verstanden habe was du eigentlich machen willst):

Delphi-Quellcode:

// Kein Uses mehr auf Hauptunit nötig! Enge kopplung und gegenseitige Referenzierung der Units damit gelöst

type
  TMyCallBack = function(Sender: TObject; const Inhalt, Code: String): String;

  TFrame3 = class(TFrame)
  private
    FMyCallBack: TMyCallBack;
  public
    function Ausgabe(const Inhalt, Code: String): String;

    property MyCallBack: TMyCallBack read FMyCallBack write FMyCallBack;
  end;

implementation

function Tframe3.Ausgabe(const Inhalt, Code: String): String;
begin
  if Assigned(FMyCallBack) then
    result := FMyCallBack(self, Inhalt, Code)
  else
    result := '';
end;

und in der Hauptunit:

Delphi-Quellcode:

uses
  frames;

procedure TForm1.OnCreate;
begin
  FMyFrame := TFrame2.Create(self);
  ...
  FMyFrame.OnMyCallBack := DoMyCallBack;
end;

function TForm1.DoMyCallBack(Sender: TObject; const Inhalt, Code: String): String;
begin
  Inhalt.Text:=Inhalt;
  Code.Text:=Inhalt;
  Frame11.Findekomponente.Click;
end;

[Bobo1]

Existiert das Problem noch? Es gibt eine Lösung.

[e-mail]