Leider funktioniert es immer noch nicht.
Hab jetzt folgendens:
Hauptform:
Delphi-Quellcode:
type
Hauptfenster = class(System.Windows.Forms.Form)
private
{ Private-Deklarationen }
function getLabel : string;
procedure SetLabel(lab : string);
public
property Labeltext : string read getLabel write SetLabel;
constructor Create;
end;
function Hauptfenster.getLabel : String;
begin
result := Label1.Text;
end;
procedure Hauptfenster.SetLabel(lab : String);
begin
label1.Text := lab;
end;
MDI-Child
Delphi-Quellcode:
type
DatenBox = class(System.Windows.Forms.Form)
private
{ Private-Deklarationen }
function get_MainForm : Form;
property Mainform : Form read get_MainForm;
end;
function DatenBox.get_MainForm : Form;
begin
result := Owner as Form;
end;
Wenn ich obriges richtig verstanden habe, dann müste ich doch so zu greifen können, oder?
Mainform.Labeltext := 'Test';
Edit: Und mein Aufruf der Form
Delphi-Quellcode:
with DatenBox.Create do begin
MdiParent := self;
Show;
end;