Rückgabewert von Fenster

[mr.mc.mauser]

Hallo,

stehe im Moment bisserl Arg auf dem Schlauch
Ist es möglich aus einem "Unterfenster" Daten in das Hauptfenster zu übertragen, wenn ja wie ?
Beispiel (wirklich nur exemplarisch, ich hoffe es veranschaulicht alles):
Hauptprogramm:
<Button> -> onClick öffne Fenster
<Text1>
<Text2>
<Text3>

Fenster:
<Editfield1>
<Checkbox1>
<Editfield2>
<Button> -> onClick schließe Fenster und 'Zeigewerte'

(Öffnen und schließen klappt, nur das Zeigewerte eben nicht, da steh ich voll auf dem Schlauch, absolut keine Idee)

Zeigewerte (in Hauptprogramm ?):
<Text1> = Wert<Editfield1>
<Text2> = Wert<Checkbox1>
<Text3> = Wert<Editfield2>

Gruß
Robert

[theo]

Du kannst von einer Unit auf die Daten der anderen zugreifen.
Vielleicht verstehe ich dein Problem nicht ganz.

Code: Alles auswählen

implementation
uses Unit1;
...
Form1.Memo1.Text:=Form2.Edit1.Text; //Form2 ist nur zur Verdeutlichung

[mr.mc.mauser]

hab mich bisserl blöd ausgedrückt:
hier mal der Demo Quelltext

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure machwas;
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
 
procedure TForm1.machwas;
begin
    Label1.Caption:='Fenster 2 geklickt';
end;
 
end.

Code: Alles auswählen

unit Unit2; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2; 
 
implementation
 
{$R *.lfm}
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
    // rufe Irgendwie die Procedure Tform1.machwas auf
 
  	Form2.Close;
end;
 
end.
 

Wenn ich in Unit2 die Unit1 bei Uses einbinde gibt es ja einen Fehler:

Code: Alles auswählen

unit2.pas(8,83) Fatal: Circular unit reference between Unit2 and Unit1

Gruß
Robert

[corpsman]

Code: Alles auswählen

unit Unit2; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2; 
 
implementation
 
Uses Unit1;// mus unter Implementation stehen sonst hast du ne Zirkuläre Abhängigkeit die nicht aufgelöst werden kann.
 
{$R *.lfm}
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
    // rufe Irgendwie die Procedure Tform1.machwas auf
     Form1.Machwas;
     Form2.Close;
end;
 
end.

[mr.mc.mauser]

Danke, genau das habe ich gesucht.

[Bauer321]

da hab ich auch nochmal kurz ne Frage, dass das so sein muss hab ich auch irgendwann mal festgestellt aber was ist eigentlich eine Zirkuläre abhängigkeit?

[MAC]

Wenn du 2 Units hast und beide ganz oben bei uses die anderen Units eingebudnen haben, dann passiert folgendes:

Der FPC (Compiler) will jetzt das Projekt kompilieren.
Er fängt mit der Unti 1 an.
Dort steht aber ein haufen Uses: Da diese in Unit1 benötigt werden müsssen diese vorher abgearbeitet werden.
Also arbeitet er die 5 standartunits ab und kommt zu unit2.
Diese will er auch abarbeiten. Aber bei Unit2 steht das Unit1 benötig wird. Das heißt er muss zuerst Unit1 abarbeiten bevor er Unit2 bearbeiten kann.
Unit1 will aber das er zuerst Unit2 macht u.s.w

Deshalb kann nur 1 Unit ganz oben eine Andere als Abhängigkeit deklarieren.
Alle anderen müssen im implementation treil deklariert sein (Dann haben diese leicht einschränkungen, ka genau welche ... )

[Socke]

Alle anderen müssen im implementation treil deklariert sein (Dann haben diese leicht einschränkungen, ka genau welche ... )

Die Einschränkung ist offensichtlich: Im Implementations-Teil kann diese Unit nicht verwendet werden, da die ganzen Klassen und Typen nicht bekannt sind.