Variable aus anderem Formular übernehmen

[Willie1]

von Matze

Zitat:

Re: Variable einer anderen Form übergeben!
Alt 2. Mär 2005, 16:06
Die Variable in Form1 global deklarieren (z.B. unter public).

Im Form2 bei den uses Unit1 eintragen und du kannst mittels

Variable := Form1.x; darauf zugreifen oder ohne vorangestelltes "Form1", wenn die Variable in Form1 da deklariert ist, wo "Form1: TForm1;" steht.

Aber das hatten wir schon des öfteren.

Hallo, ich bin genauso vorgegangen. Sie wird in Form2 nicht erkannt. Form1 schon aber keine Variablen aus Form1 unter public.
Gruß Willie.

Wie kann ich erreichen, dass Zitat: Matze zu lesen ist?

[bcvs]

Zeig mal deinen Code (nur den betreffenden Teil), sonst kann dir hier keiner helfen.

[Blup]

Sind die Variablen wirklich im abschnitt "public" der Form1 deklariert?

Gehören die beiden Units für Form1 und Form2 tatsächlich zu deinem Projekt und werden gemeinsam compiliert?
Möglicherweise wird bei dir nur die Unit für Form2 übersetzt und greift auf eine veraltete Form1.dcu zu, die diese Variablen noch nicht hat.

Gib den Formularen mal vernünftige Namen und versuch es erneut.

[Jumpy]

Sprichst du die Variablen von Form2 aus auch als Form1.Variable1 an oder nur mit Variable1?

[Willie1]

Unit TelListe_h

Delphi-Quellcode:

  private
    {Private-Deklarationen }
  public
    TelList: TTelList;
    Wei: Boolean;
    PfDateina: string;
  end;

var
  MainForm: TForm;

Unit TelListe_Zeig

Delphi-Quellcode:

unit TelListe_Zeig;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, TelListe_h, Vcl.StdCtrls, Edit1,
  Vcl.ExtCtrls;

MainForm.Wei wird in TelListe_Zeig nicht gefunden.
Gehören zum gleichen Projekt und werden gemeinsam kompiliert.

[Willie1]

Zitat:

MainForm: TForm;

<------------------
Hier ist der Fehler: es muss MainForm: TMainForm heißen. Ich hatte im Objekt Inspektor Name Form1 in MainForm geändert. Aber warum hat es vorher mit Form1 auch nicht funktioniert?

[bcvs]

Wahrscheinlich stand da auch schon

Delphi-Quellcode:

var Form1: TForm

und nicht

Delphi-Quellcode:

var Form1: TForm1

, warum auch immer.

[Hobbycoder]

Ich mache das immer etwas anders.

Ich referenziere nach Möglichkeit nie die aufrufende Form, wenn es sich vermeiden lässt. Da ich die aufzurufende Form eh in die Uses der aufrufenden Form aufnehmen muss, setze ich auch von dort die Daten.

Delphi-Quellcode:

procedure TMainForm.btnEdit(Sender: TObject);
begin
  frmDetails.edtName.Text:=BeispielObject.Name;
  frmDetails.edtAlter.Text:=IntToStr(BeispielObject.Name);
  if frmDetails.ShowModal=mrOK then
  begin
    BeispielObject.Name:=frmDetails.edtName.Text;
    BeispielObject.Alter:=StrToInt(frmDetails.edtAlter.Text);
  end;
end;

Bei Umfangreicheren Datenstrukturen übergebe ich nur den Zeiger auf das Objekt oder schreibe mir ein Assign, mache mir also eine Kopie in eine Object, welches als Public in der frmDetails deklariert ist, und verteile die Daten dann im TfrmDetails.OnFormShow.

So vermeide ich Rückwärtsbeziehungen. Ich bestimme den Zeitpunkt, wann und wie meine Variablen in der aufrufenden Form aktualisiert werden.

[DeddyH]

Ich mache es noch anders und verpasse dem aufzurufenden Form entsprechende Properties, die ich dann setzen und auslesen kann. Das hat den Vorteil, dass es mir egal ist, wo und in welchen Komponenten die jeweiligen Daten dargestellt werden.

Delphi-Quellcode:

type
  TModalForm = class(TForm)
    edtName: TEdit;
    // weitere Komponenten
  private
    function GetUserName: string;
    procedure SetUserName(const Value: string);
  public
    property UserName: string read GetUserName write SetUserName;
  end;

...

function TModalForm.GetUserName: string;
begin
  Result := edtName.Text;
end;

procedure TModalForm.SetUserName(const Value: string);
begin
  edtName.Text := Value;
end;

Auf der anderen Seite dann

Delphi-Quellcode:

procedure TfrmDingens.EditUsername;
var
  frm: TModalForm;
begin
  frm := TModalForm.Create(nil);
  try
    frm.UserName := Username;
    if frm.ShowModal = mrOK then
      Username := frm.UserName;
  finally
    frm.Free;
  end;
end;

[Hobbycoder]

Zitat:

Zitat von DeddyH (Beitrag 1467629)

Ich mache es noch anders und verpasse dem aufzurufenden Form entsprechende Properties, die ich dann setzen und auslesen kann. Das hat den Vorteil, dass es mir egal ist, wo und in welchen Komponenten die jeweiligen Daten dargestellt werden.

ist ja fast das gleiche. Nur, dass ich auf Getter und Setter verzichtet habe.