Zugriff auf Übergeordnetes Objekt?

[Bloodfire]

Hi!

Wie kann man (am besten) auf ein Objekt zugreifen, von dem das, welches zugreifen soll, erstellt worden ist??

MainForm (TForm) erstellt während der Laufzeit DlgForm (TForm), DlgForm soll nun Werte an MainForm zurückgeben, wie kann man das (am besten) umsetzen? (in der implementation die unit des MainForm-Objektes nochmal unter uses zu stellen, ist ja nicht sehr schön, bzw kann zu fehlern führen, nehm ich an?)


so, zb:

Delphi-Quellcode:

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles, JPeg, u_dlg;

type
  TMainForm = class(TForm)
    Dlg: TDlgForm;
    (...)
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.BtnDlgClick(Sender: TObject);
begin
   Dlg:=TDlgForm.Create(nil);
   Dlg.ShowModal;
end;

Delphi-Quellcode:

unit u_dlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles, JPeg;

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

var
  DlgForm: TDlgForm;

implementation

uses u_main;

Danke im Vorraus!