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:

zusammenfalten · markieren

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;

zusammenfalten · markieren

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!

Zugriff auf Übergeordnetes Objekt?

Zugriff auf Übergeordnetes Objekt?

Forumregeln