Auf anderes Fenster zugreifen

[Taladan]

Hallo,

wie kann ich mit delphi .Net auf andere Fenster zu greifen. Wenn ich diese wähle, kann ich noch nichtmal auf ein einfaches Label zu greifen.

z.b.

Delphi-Quellcode:

procedure DatenBox.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  hauptform.label1.text := "Test";
end;

Dieses kann ich noch nichtmal kompilieren. Ich kann doch keine größere Anwendung mit nur einen Fenster schreiben...

[MathiasSimmack]

Kannst du für die Zukunft bitte mal genauere Fehlermeldungen schreiben als nur

Zitat:

Dieses kann ich noch nichtmal kompilieren.

Weißt du, über wie viele Fehlerquellen man jetzt spekulieren könnte? Soll dein Zitat bedeuten, dass der Compiler meckert, dann schreibe das bitte dazu. Am besten gleich mit der Fehlermeldung. Danke schön.

[BTeam]

Ich denke mal er meint das er von einer 2. Form aus Irgendwas auf einer anderen Form ändern will.

1. Srings werden in ein ' und nicht in " gepackt.
2. du must die Unit deiner "Hauptform" in die Unit deiner "DatenBox" mit eintragen dann kannst du von da aus auch auf deiner "HauptForm" zugreifen.

Wenn die Unit deiner "HauptForm" Unit1 heist must du das so eintragen.

implementation
uses unit1;

[MathiasSimmack]

Zitat:

Zitat von BTeam

Ich denke mal er meint das er von einer 2. Form aus Irgendwas auf einer anderen Form ändern will.

Ja, aber das ist das Problem: du denkst. Äh, sorry, das ist jetzt nicht so gemeint, wie es vllt. klingt. Ich will damit nur sagen, dass man auch eine vernünftige Fehlerbeschreibung mitgeben kann. Andernfalls sollte man solche Fragen künftig besser ignorieren und erst beantworten, wenn der Autor mehr sagt und nicht verlangt, dass andere den Fehler erraten. :roll:

Zitat:

1. Srings werden in ein ' und nicht in " gepackt.

:shock: Das habe ich gar nicht gemerkt. CSharp hinterlässt also doch Spuren.

[Robert_G]

Wie ich in einem anderen bereits schrieb: .Net kennt keien globalen Variablen!
Auch wenn D.Net das vor dir versteckt wird es nicht mehr standardmäßige diese "Dinger" vom Formdesigner anlegen.
Du kannst zwar im Formdesigner festlegen welche Sichtbarkeit ein Control haben soll, aber ich kann keinen Sinn Sinn darin sehen sehen, warum ein Form Zugriff auf Controls eines anderen haben sollte. :gruebel:
Um dir mal einen einfachen Weg zu zeigen (nicht unbedingt optimal, aber für den Anfang verständlich ;) ):
Du könntest dem 2 Form. eine Property verpassen, die den Owner auf den Typen deines Hauptformulars wandelt.

Delphi-Quellcode:

property MainForm :MainForm read Owner as MainForm;

Wenn das n D.Net nicht geht, dann:

Delphi-Quellcode:

property MainForm :MainForm read get_MainForm;
...
function AnderesForm.get_MainForm : MainForm;
begin
   result := Owner as MainForm;
end;

Dadurch kannst du im 2. Form easy auf Properties des MainForms zugreifen ohne ständig umwandeln zu müssen.

Wenn du das Form anlegst übergibst du ihm das aufrufende Formular als Owner:

Delphi-Quellcode:

using Dlg := AnderesForm.Create() do
begin
   Dlg.Owner := self;
   Dlg.ShowDialog();
end;

Das MainForm braucht nun natürlich auch eine Property, die dich den text des Labels von außerhalb ändern lässt:

Delphi-Quellcode:

property DingsBums : string read label1.Text write label1.Text;

Falls D.Net keine inline Properties kennt, musst du es wie oben mit einem getter & setter machen. ;)

Im anderen Form reicht nun ein:

Delphi-Quellcode:

MainForm.DingsBums := 'Test';

Nachtrag: Ups, da stand doch noch ein "new Anderesform()" :mrgreen:

[Taladan]

Zitat:

Zitat von Robert_G

Delphi-Quellcode:

 Wie ich in einem anderen bereits schrieb: .Net kennt keien globalen Variablen!
Auch wenn D.Net das vor dir versteckt wird es nicht mehr standardmäßige diese "Dinger" vom Formdesigner anlegen.
Du kannst zwar im Formdesigner festlegen welche Sichtbarkeit ein Control haben soll, aber ich kann keinen Sinn Sinn darin sehen sehen, warum ein Form Zugriff auf Controls eines anderen haben sollte. Grübelnd...

Das hattest du mir geschrieben. Jedoch verstehe ich das nicht. Immerhin sind globale Variable doch die perfekte Lösung um Datan von einer Form auf die andere zu übertragen.
Angefangen von irgendwelchen Initialiesierungsdaten wie Optionen (z.b. Farben) bis hin zu kompletten Datenmengen, die man auf der einen Form definiert aber auf verschiedenen Forms nutzt.
Wie würdest du den obrige Beispiele handeln? :gruebel:

[Robert_G]

Zitat:

Zitat von Robert_G

Du kannst zwar im Formdesigner festlegen welche Sichtbarkeit ein Control haben soll, aber ich kann keinen Sinn Sinn darin sehen sehen, warum ein Form Zugriff auf Controls eines anderen haben sollte. :gruebel:

Du kannst dich natürlich auch dazu entschließen meine Antwort zu ignorieren anstatt zu sagen, dass dir der Weg nicht gefällt. Mir vergeht gerade die Lust...

.Net + globale Variablen -> (geht nicht) or (proprietärer, hässlicher D.Net Hack).
Gewöhne dich einfach daran, dass .Net eine OOP Umgebung ist in der altertümliche Dinge wie globale Variablen nicht mehr existieren.

[Taladan]

Während ich die Antwort geschrieben habe, hast du deine gepostet. Und als ich sie umgeschrieben habe, hast du dieses geschrieben.

Zitat:

Zitat von Robert_G

Zitat:

Zitat von Robert_G

Du kannst zwar im Formdesigner festlegen welche Sichtbarkeit ein Control haben soll, aber ich kann keinen Sinn Sinn darin sehen sehen, warum ein Form Zugriff auf Controls eines anderen haben sollte. :gruebel:

Du kannst dich natürlich auch dazu entschließen meine Antwort zu ignorieren anstatt zu sagen, dass dir der Weg nicht gefällt. Mir vergeht gerade die Lust...

.Net + globale Variablen -> (geht nicht) or (proprietärer, hässlicher D.Net Hack).
Gewöhne dich einfach daran, dass .Net eine OOP Umgebung ist in der altertümliche Dinge wie globale Variablen nicht mehr existieren.

[Robert_G]

Zitat:

Zitat von Taladan

Immerhin sind globale Variable doch die perfekte Lösung um Datan von einer Form auf die andere zu übertragen.

Sind sie nicht und waren sie auch noch nie.
Sie sind eine perfekte Lüsung für alle, die zu faul/unfähig sind es richtig zu machen.
Wenn man 2cm weiter als zu Nasenspitze denkt wird einem bei dem Gedanken kotzübel, dass sie überall beschrieben werden könnten ohne dass du darauf reagieren kannst...

Zitat:

Zitat von Taladan

bis hin zu kompletten Datenmengen

:shock: Oh Gott!

Zitat:

Zitat von Taladan

Wie würdest du den obrige Beispiele handeln? :gruebel:

Steht doch da... Zumindest ein einfaches Beispiel...

[Taladan]

Ich mach nur das, was ich aus Delphi Büchern gelernt habe. Z.B: Borland Delphi 4 von Walter Doberenz und Thomas Kowalski. Dort habe ich das mit den globalen Variablen her..., die dort halt als die perfekte Lösung hin gestellt werden.

[SirThornberry]

@Taladan: Leider wird in den Büchern wie "Delphi für Kids" es oftmals so hingestellt das globale Variable das übliche und schöne sind. Eventuell liegt es daran das man der Zielgruppe nicht zumuten will das sie sich bischen mehr mit der Materie befasst. In der object-orientieren Programmierung gibt es bei Objecten private, public, published und protected Bereiche. Und der Public Bereich ist genau für das da was du als globale handelst. was im Public steht kann auch von anderen Objecten verwendet werden. Wenn etwas im Private steht kann nur das Object selbst darauf zugreifen.
Vorteil des ganzen ist das nicht irgendwelche interen Werte von irgendwo her verändert werden obwohl diese nicht fürs Ändern vorgesehen sind.

[Taladan]

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?

Delphi-Quellcode:

  Mainform.Labeltext := 'Test';

Edit: Und mein Aufruf der Form

Delphi-Quellcode:

  with DatenBox.Create do begin
    MdiParent := self;
    Show;
  end;

[Robert_G]

Zitat:

Zitat von Taladan

Leider funktioniert es immer noch nicht.

Gewöhne dir an die Fehlermeldung zu nennen!
Nicht jeder kann erraten dass es "object reference not set to in instance..." ist.

Zitat:

Zitat von Taladan

Edit: Und mein Aufruf der Form

Delphi-Quellcode:

  with DatenBox.Create do begin
    MdiParent := self;
    Show;
  end;

Es muss der Owner sein! (Du verwendest ihn doch in deiner Property.)
Und wenn D.Net selbst in D2005 immer noch kein "using" hat, musst du es so schreiben:

Delphi-Quellcode:

  with DatenBox.Create do
  try
    Owner:= self;
    ShowModal();
  finally
    Dispose();
  end;

Ist es nicht modal hast du wenig Chancen das Dispose auffzurufen und kannst nur hoffen, dass du kein Memleak kriegst...

Ich will hier nicht unnütz rumpupen, aber gewöhne dir einfach an genau zu beschreiben was dein Problem ist... :roll:

Edit: Ist es ein MdIChild solltest du in deiner Property Mainform nicht Owner sondern MdiParent nehmen...

[Taladan]

Wenn ich eine Fehlermeldung kriegen würde, wäre das fein.

Wenn ich einfach

Mainform.LabelText hinschreib unterkringelt er mir wieder LabelText.
Des weiteren sagt er dann beim Compilieren wieder unbekannter Bezeichner.

[Robert_G]

Zitat:

Zitat von Taladan

Delphi-Quellcode:

property Mainform : Form read get_MainForm;
  end;

function DatenBox.get_MainForm : Form;
begin
   result := Owner as Form;
end;

Das kann doch auch nicht gehen. Ich sehe es erst jetzt... :wall:
Form hat natürlich keine Property LabelText und welchen Sinn macht dann die Property anstatt einfach den Typen deines Hauptforms zu nehmen?

Delphi-Quellcode:

property Mainform : Hauptfensterread get_MainForm;
  end;

function DatenBox.get_MainForm : Hauptfenster;
begin
   result := Owner as Hauptfenster;
end;

[Taladan]

Und nu noch

Delphi-Quellcode:

  (Mainform as Hauptfenster).Labeltext

verwenden, dann klapps. Dank dir!

[Robert_G]

Zitat:

Zitat von Taladan

Und nu noch

Delphi-Quellcode:

  (Mainform as Hauptfenster).Labeltext

verwenden, dann klapps. Dank dir!

Was macht das für einen Sinn? :wall:
Warum nicht gleich die Property vom Typen des HauptForms?

[Taladan]

Oder doch nicht. Wieder schneller gepostet, als getestet. Diesmal ist es ein Laufzeitfehler.

"Der Objectverweiß wurde nicht auf eine Objectinstanz festegelgt"

Delphi-Quellcode:

function Hauptfenster.getLabel : String;
begin
  result := Label1.Text; //hier
end;

procedure Hauptfenster.SetLabel(lab : String);
begin
  Label1.Text := lab; // oder hier
end;

[Robert_G]

Jetzt kommt der punkt an dem du am besten den code beider Forms zeigst....

[Taladan]

Ok hier ist er

UDaten:

Delphi-Quellcode:

unit UDaten;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, Borland.Vcl.SysUtils,
  borland.Vcl.Classes, System.Globalization,
  System.Data.SqlClient, Borland.Vcl.Dialogs;

type
  DatenBox = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    bar: System.Windows.Forms.Panel;
    StatusBar1: System.Windows.Forms.StatusBar;
    ToolBar1: System.Windows.Forms.ToolBar;
    Button1: System.Windows.Forms.Button;
    Button2: System.Windows.Forms.Button;
    Button3: System.Windows.Forms.Button;
    Panel1: System.Windows.Forms.Panel;
    Panel2: System.Windows.Forms.Panel;
    Panel3: System.Windows.Forms.Panel;
    ListBox1: System.Windows.Forms.ListBox;
    TextBox1: System.Windows.Forms.TextBox;
    TextBox2: System.Windows.Forms.TextBox;
    TextBox3: System.Windows.Forms.TextBox;
    TextBox5: System.Windows.Forms.TextBox;
    TextBox4: System.Windows.Forms.TextBox;
    Button4: System.Windows.Forms.Button;
    Panel4: System.Windows.Forms.Panel;
    Button5: System.Windows.Forms.Button;
    Panel5: System.Windows.Forms.Panel;
    Button6: System.Windows.Forms.Button;
    Panel6: System.Windows.Forms.Panel;
    Button7: System.Windows.Forms.Button;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure DatenBox_Load(sender: System.Object; e: System.EventArgs);
    procedure Button2_Click(sender: System.Object; e: System.EventArgs);
    procedure Button3_Click(sender: System.Object; e: System.EventArgs);
    procedure Button4_Click(sender: System.Object; e: System.EventArgs);
    procedure Button5_Click(sender: System.Object; e: System.EventArgs);
    procedure Button6_Click(sender: System.Object; e: System.EventArgs);
    procedure DatenBox_Load1(sender: System.Object; e: System.EventArgs);
    procedure Button7_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
    procedure ClickBar(Nr : Integer);
    function get_MainForm : Form;
    property Mainform : Form read get_MainForm;
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(DatenBox))]

implementation

uses uhauptfenster;


{$AUTOBOX ON}

{$REGION 'Vom Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure DatenBox.InitializeComponent;
begin
  Self.StatusBar1 := System.Windows.Forms.StatusBar.Create;
  Self.ToolBar1 := System.Windows.Forms.ToolBar.Create;
  Self.bar := System.Windows.Forms.Panel.Create;
  Self.Panel6 := System.Windows.Forms.Panel.Create;
  Self.Button6 := System.Windows.Forms.Button.Create;
  Self.Panel5 := System.Windows.Forms.Panel.Create;
  Self.Button5 := System.Windows.Forms.Button.Create;
  Self.Panel4 := System.Windows.Forms.Panel.Create;
  Self.Button4 := System.Windows.Forms.Button.Create;
  Self.Panel3 := System.Windows.Forms.Panel.Create;
  Self.Button3 := System.Windows.Forms.Button.Create;
  Self.Panel2 := System.Windows.Forms.Panel.Create;
  Self.Button2 := System.Windows.Forms.Button.Create;
  Self.Panel1 := System.Windows.Forms.Panel.Create;
  Self.Button1 := System.Windows.Forms.Button.Create;
  Self.ListBox1 := System.Windows.Forms.ListBox.Create;
  Self.TextBox1 := System.Windows.Forms.TextBox.Create;
  Self.TextBox2 := System.Windows.Forms.TextBox.Create;
  Self.TextBox3 := System.Windows.Forms.TextBox.Create;
  Self.TextBox5 := System.Windows.Forms.TextBox.Create;
  Self.TextBox4 := System.Windows.Forms.TextBox.Create;
  Self.Button7 := System.Windows.Forms.Button.Create;
  Self.bar.SuspendLayout;
  Self.SuspendLayout;
  // 
  // StatusBar1
  // 
  Self.StatusBar1.Location := System.Drawing.Point.Create(0, 384);
  Self.StatusBar1.Name := 'StatusBar1';
  Self.StatusBar1.Size := System.Drawing.Size.Create(592, 22);
  Self.StatusBar1.TabIndex := 0;
  Self.StatusBar1.Text := 'StatusBar1';
  // 
  // ToolBar1
  // 
  Self.ToolBar1.Dock := System.Windows.Forms.DockStyle.None;
  Self.ToolBar1.DropDownArrows := True;
  Self.ToolBar1.Location := System.Drawing.Point.Create(136, 336);
  Self.ToolBar1.Name := 'ToolBar1';
  Self.ToolBar1.ShowToolTips := True;
  Self.ToolBar1.Size := System.Drawing.Size.Create(456, 42);
  Self.ToolBar1.TabIndex := 2;
  // 
  // bar
  // 
  Self.bar.Controls.Add(Self.Panel6);
  Self.bar.Controls.Add(Self.Button6);
  Self.bar.Controls.Add(Self.Panel5);
  Self.bar.Controls.Add(Self.Button5);
  Self.bar.Controls.Add(Self.Panel4);
  Self.bar.Controls.Add(Self.Button4);
  Self.bar.Controls.Add(Self.Panel3);
  Self.bar.Controls.Add(Self.Button3);
  Self.bar.Controls.Add(Self.Panel2);
  Self.bar.Controls.Add(Self.Button2);
  Self.bar.Controls.Add(Self.Panel1);
  Self.bar.Controls.Add(Self.Button1);
  Self.bar.Dock := System.Windows.Forms.DockStyle.Left;
  Self.bar.Location := System.Drawing.Point.Create(0, 0);
  Self.bar.Name := 'bar';
  Self.bar.Size := System.Drawing.Size.Create(136, 384);
  Self.bar.TabIndex := 3;
  // 
  // Panel6
  // 
  Self.Panel6.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel6.Location := System.Drawing.Point.Create(0, 189);
  Self.Panel6.Name := 'Panel6';
  Self.Panel6.Size := System.Drawing.Size.Create(136, 11);
  Self.Panel6.TabIndex := 12;
  // 
  // Button6
  // 
  Self.Button6.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button6.Location := System.Drawing.Point.Create(0, 166);
  Self.Button6.Name := 'Button6';
  Self.Button6.Size := System.Drawing.Size.Create(136, 23);
  Self.Button6.TabIndex := 11;
  Self.Button6.Text := 'Button6';
  Include(Self.Button6.Click, Self.Button6_Click);
  // 
  // Panel5
  // 
  Self.Panel5.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel5.Location := System.Drawing.Point.Create(0, 158);
  Self.Panel5.Name := 'Panel5';
  Self.Panel5.Size := System.Drawing.Size.Create(136, 8);
  Self.Panel5.TabIndex := 10;
  // 
  // Button5
  // 
  Self.Button5.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button5.Location := System.Drawing.Point.Create(0, 135);
  Self.Button5.Name := 'Button5';
  Self.Button5.Size := System.Drawing.Size.Create(136, 23);
  Self.Button5.TabIndex := 9;
  Self.Button5.Text := 'Button5';
  Include(Self.Button5.Click, Self.Button5_Click);
  // 
  // Panel4
  // 
  Self.Panel4.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel4.Location := System.Drawing.Point.Create(0, 127);
  Self.Panel4.Name := 'Panel4';
  Self.Panel4.Size := System.Drawing.Size.Create(136, 8);
  Self.Panel4.TabIndex := 8;
  // 
  // Button4
  // 
  Self.Button4.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button4.Location := System.Drawing.Point.Create(0, 104);
  Self.Button4.Name := 'Button4';
  Self.Button4.Size := System.Drawing.Size.Create(136, 23);
  Self.Button4.TabIndex := 7;
  Self.Button4.Text := 'Button4';
  Include(Self.Button4.Click, Self.Button4_Click);
  // 
  // Panel3
  // 
  Self.Panel3.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel3.Location := System.Drawing.Point.Create(0, 95);
  Self.Panel3.Name := 'Panel3';
  Self.Panel3.Size := System.Drawing.Size.Create(136, 9);
  Self.Panel3.TabIndex := 6;
  // 
  // Button3
  // 
  Self.Button3.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button3.Location := System.Drawing.Point.Create(0, 72);
  Self.Button3.Name := 'Button3';
  Self.Button3.Size := System.Drawing.Size.Create(136, 23);
  Self.Button3.TabIndex := 5;
  Self.Button3.Text := 'Button3';
  Include(Self.Button3.Click, Self.Button3_Click);
  // 
  // Panel2
  // 
  Self.Panel2.BackColor := System.Drawing.SystemColors.ControlDarkDark;
  Self.Panel2.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel2.Location := System.Drawing.Point.Create(0, 55);
  Self.Panel2.Name := 'Panel2';
  Self.Panel2.Size := System.Drawing.Size.Create(136, 17);
  Self.Panel2.TabIndex := 4;
  // 
  // Button2
  // 
  Self.Button2.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button2.Location := System.Drawing.Point.Create(0, 32);
  Self.Button2.Name := 'Button2';
  Self.Button2.Size := System.Drawing.Size.Create(136, 23);
  Self.Button2.TabIndex := 3;
  Self.Button2.Text := 'Button2';
  Include(Self.Button2.Click, Self.Button2_Click);
  // 
  // Panel1
  // 
  Self.Panel1.BackColor := System.Drawing.SystemColors.ActiveCaption;
  Self.Panel1.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Panel1.ForeColor := System.Drawing.SystemColors.ActiveCaption;
  Self.Panel1.Location := System.Drawing.Point.Create(0, 23);
  Self.Panel1.Name := 'Panel1';
  Self.Panel1.Size := System.Drawing.Size.Create(136, 9);
  Self.Panel1.TabIndex := 2;
  // 
  // Button1
  // 
  Self.Button1.Dock := System.Windows.Forms.DockStyle.Top;
  Self.Button1.Location := System.Drawing.Point.Create(0, 0);
  Self.Button1.Name := 'Button1';
  Self.Button1.Size := System.Drawing.Size.Create(136, 23);
  Self.Button1.TabIndex := 0;
  Self.Button1.Text := 'Button1';
  Include(Self.Button1.Click, Self.Button1_Click);
  // 
  // ListBox1
  // 
  Self.ListBox1.BackColor := System.Drawing.Color.Cornsilk;
  Self.ListBox1.Location := System.Drawing.Point.Create(456, 8);
  Self.ListBox1.Name := 'ListBox1';
  Self.ListBox1.Size := System.Drawing.Size.Create(128, 316);
  Self.ListBox1.TabIndex := 4;
  // 
  // TextBox1
  // 
  Self.TextBox1.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
  Self.TextBox1.Location := System.Drawing.Point.Create(280, 24);
  Self.TextBox1.Name := 'TextBox1';
  Self.TextBox1.TabIndex := 5;
  Self.TextBox1.Text := 'TextBox1';
  // 
  // TextBox2
  // 
  Self.TextBox2.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
  Self.TextBox2.Cursor := System.Windows.Forms.Cursors.IBeam;
  Self.TextBox2.Location := System.Drawing.Point.Create(280, 56);
  Self.TextBox2.Name := 'TextBox2';
  Self.TextBox2.TabIndex := 6;
  Self.TextBox2.Text := 'TextBox2';
  // 
  // TextBox3
  // 
  Self.TextBox3.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
  Self.TextBox3.Cursor := System.Windows.Forms.Cursors.IBeam;
  Self.TextBox3.Location := System.Drawing.Point.Create(280, 88);
  Self.TextBox3.Name := 'TextBox3';
  Self.TextBox3.TabIndex := 7;
  Self.TextBox3.Text := 'TextBox3';
  // 
  // TextBox5
  // 
  Self.TextBox5.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
  Self.TextBox5.Cursor := System.Windows.Forms.Cursors.IBeam;
  Self.TextBox5.Location := System.Drawing.Point.Create(280, 152);
  Self.TextBox5.Name := 'TextBox5';
  Self.TextBox5.TabIndex := 9;
  Self.TextBox5.Text := 'TextBox5';
  // 
  // TextBox4
  // 
  Self.TextBox4.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
  Self.TextBox4.Cursor := System.Windows.Forms.Cursors.IBeam;
  Self.TextBox4.Location := System.Drawing.Point.Create(280, 120);
  Self.TextBox4.Name := 'TextBox4';
  Self.TextBox4.TabIndex := 10;
  Self.TextBox4.Text := 'TextBox4';
  // 
  // Button7
  // 
  Self.Button7.Location := System.Drawing.Point.Create(216, 232);
  Self.Button7.Name := 'Button7';
  Self.Button7.TabIndex := 11;
  Self.Button7.Text := 'Button7';
  Include(Self.Button7.Click, Self.Button7_Click);
  // 
  // DatenBox
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(592, 406);
  Self.Controls.Add(Self.Button7);
  Self.Controls.Add(Self.TextBox4);
  Self.Controls.Add(Self.TextBox5);
  Self.Controls.Add(Self.TextBox3);
  Self.Controls.Add(Self.TextBox2);
  Self.Controls.Add(Self.TextBox1);
  Self.Controls.Add(Self.ListBox1);
  Self.Controls.Add(Self.bar);
  Self.Controls.Add(Self.ToolBar1);
  Self.Controls.Add(Self.StatusBar1);
  Self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.FixedToolWindow;
  Self.Name := 'DatenBox';
  Self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  Self.Text := 'Daten editieren';
  Self.TopMost := True;
  Include(Self.Load, Self.DatenBox_Load1);
  Self.bar.ResumeLayout(False);
  Self.ResumeLayout(False);
end;
{$ENDREGION}

function DatenBox.get_MainForm : Form;
begin
   result := MDIParent as Hauptfenster;
end;

procedure DatenBox.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor DatenBox.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

procedure DatenBox.Button7_Click(sender: System.Object; e: System.EventArgs);
begin
//  (Mainform as Hauptfenster)
  Mainform.Labeltext := 'Test';
end;

procedure DatenBox.DatenBox_Load1(sender: System.Object; e: System.EventArgs);
begin
//  Mainform.LabelText
end;

procedure DatenBox.Button6_Click(sender: System.Object; e: System.EventArgs);
begin
  Clickbar(6);
end;

procedure DatenBox.Button5_Click(sender: System.Object; e: System.EventArgs);
begin
  Clickbar(5);
end;

procedure DatenBox.Button4_Click(sender: System.Object; e: System.EventArgs);
begin
  clickbar(4);
end;

procedure DatenBox.Button3_Click(sender: System.Object; e: System.EventArgs);
begin
  ClickBar(3);
end;

procedure DatenBox.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
  Clickbar(2);
end;

procedure DatenBox.DatenBox_Load(sender: System.Object; e: System.EventArgs);
begin

end;

procedure DatenBox.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  Clickbar(1);
end;

procedure DatenBox.ClickBar(Nr : Integer);
//var i : integer;
begin
//  hauptfenster.label1.text;
//for i := 0 to 5 do begin
//     button[i].visible := false;
//     panel[i].visible := false:
//   end;
  Button1.Dock := DockStyle.None;
  Button2.Dock := DockStyle.None;
  Button3.Dock := DockStyle.None;
  Button4.Dock := DockStyle.None;
  Button5.Dock := DockStyle.None;
  Button6.Dock := DockStyle.None;
  Panel1.Visible := false;
  Panel2.Visible := false;
  Panel3.Visible := false;
  Panel4.Visible := false;
  Panel5.Visible := false;
  Panel6.Visible := false;
  case nr of
    1:  Begin
          Button1.Dock := DockStyle.Top;
          Button6.Dock := Dockstyle.Bottom;
          Button5.Dock := Dockstyle.Bottom;
          Button4.Dock := Dockstyle.Bottom;
          Button3.Dock := Dockstyle.Bottom;
          Button2.Dock := Dockstyle.Bottom;
          Panel1.Visible := true;
          Panel1.Dock := Dockstyle.Fill;
        end;
    2:  Begin
          Button1.Dock := DockStyle.Top;
          Button2.Dock := Dockstyle.Top;
          Button6.Dock := Dockstyle.Bottom;
          Button5.Dock := Dockstyle.Bottom;
          Button4.Dock := Dockstyle.Bottom;
          Button3.Dock := Dockstyle.Bottom;
          Panel2.Visible := true;
          Panel2.Dock := Dockstyle.Fill;
        end;
    3:  Begin
          Button1.Dock := DockStyle.Top;
          Button2.Dock := Dockstyle.Top;
          Button3.Dock := Dockstyle.Top;
          Button6.Dock := Dockstyle.Bottom;
          Button5.Dock := Dockstyle.Bottom;
          Button4.Dock := Dockstyle.Bottom;
          Panel3.Visible := True;
          Panel3.Dock := Dockstyle.Fill;
        end;
    4:  Begin
          Button1.Dock := DockStyle.Top;
          Button2.Dock := Dockstyle.Top;
          Button3.Dock := Dockstyle.Top;
          Button4.Dock := Dockstyle.Top;
          Button6.Dock := Dockstyle.Bottom;
          Button5.Dock := Dockstyle.Bottom;
          Panel4.Visible := true;
          Panel4.Dock := Dockstyle.Fill;
        End;
    5:  Begin
          Button1.Dock := DockStyle.Top;
          Button2.Dock := Dockstyle.Top;
          Button3.Dock := Dockstyle.Top;
          Button4.Dock := Dockstyle.Top;
          Button5.Dock := Dockstyle.Top;
          Button6.Dock := Dockstyle.Bottom;
          Panel5.Visible := True;
          Panel5.Dock := Dockstyle.Fill;
        End;
    6:  Begin
          Button1.Dock := DockStyle.Top;
          Button2.Dock := Dockstyle.Top;
          Button3.Dock := Dockstyle.Top;
          Button4.Dock := Dockstyle.Top;
          Button5.Dock := Dockstyle.Top;
          Button6.Dock := Dockstyle.Top;
          Panel6.Visible := True;
          Panel6.Dock := Dockstyle.Fill;
        end;
  end;
end;

end.

UHauptform

Delphi-Quellcode:

unit UHauptfenster;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Globalization,
  Borland.Vcl.Forms, System.Data.SqlClient;

type
  Hauptfenster = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    Rasse: System.Data.DataTable;
    DataColumn1: System.Data.DataColumn;
    DataColumn2: System.Data.DataColumn;
    DataColumn3: System.Data.DataColumn;
    DataColumn4: System.Data.DataColumn;
    MainMenu1: System.Windows.Forms.MainMenu;
    MenuItem1: System.Windows.Forms.MenuItem;
    MenuItem2: System.Windows.Forms.MenuItem;
    MenuItem3: System.Windows.Forms.MenuItem;
    MenuItem4: System.Windows.Forms.MenuItem;
    MenuItem5: System.Windows.Forms.MenuItem;
    MenuItem6: System.Windows.Forms.MenuItem;
    MenuItem7: System.Windows.Forms.MenuItem;
    MenuItem8: System.Windows.Forms.MenuItem;
    MenuItem9: System.Windows.Forms.MenuItem;
    MenuItem10: System.Windows.Forms.MenuItem;
    MenuItem11: System.Windows.Forms.MenuItem;
    Label1: System.Windows.Forms.Label;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
    procedure MenuItem2_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem3_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem5_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem6_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem7_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem9_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem11_Click(sender: System.Object; e: System.EventArgs);
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure Hauptfenster_Load(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
    function getLabel : string;
    procedure SetLabel(lab : string);
  public
    DataSet1: System.Data.DataSet;
    property Labeltext : string read getLabel write SetLabel;
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(Hauptfenster))]

implementation

uses UDaten;

{$AUTOBOX ON}

{$REGION 'Vom Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure Hauptfenster.InitializeComponent;
type
  TArrayOfSystem_Data_DataTable = array of System.Data.DataTable;
  TArrayOfSystem_Data_DataColumn = array of System.Data.DataColumn;
  TArrayOfSystem_Data_Constraint = array of System.Data.Constraint;
  TArrayOfString = array of string;
  TArrayOfSystem_Windows_Forms_MenuItem = array of System.Windows.Forms.MenuItem;
begin
  Self.DataSet1 := System.Data.DataSet.Create;
  Self.Rasse := System.Data.DataTable.Create;
  Self.DataColumn1 := System.Data.DataColumn.Create;
  Self.DataColumn2 := System.Data.DataColumn.Create;
  Self.DataColumn3 := System.Data.DataColumn.Create;
  Self.DataColumn4 := System.Data.DataColumn.Create;
  Self.MainMenu1 := System.Windows.Forms.MainMenu.Create;
  Self.MenuItem1 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem10 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem11 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem2 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem3 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem4 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem5 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem6 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem7 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem8 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem9 := System.Windows.Forms.MenuItem.Create;
  Self.Label1 := System.Windows.Forms.Label.Create;
  (System.ComponentModel.ISupportInitialize(Self.DataSet1)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.Rasse)).BeginInit;
  Self.SuspendLayout;
  // 
  // DataSet1
  // 
  Self.DataSet1.DataSetName := 'NewDataSet';
  Self.DataSet1.Locale := System.Globalization.CultureInfo.Create('de-DE');
  Self.DataSet1.Tables.AddRange(TArrayOfSystem_Data_DataTable.Create(Self.Rasse));
  // 
  // Rasse
  // 
  Self.Rasse.Columns.AddRange(TArrayOfSystem_Data_DataColumn.Create(Self.DataColumn1, 
          Self.DataColumn2, Self.DataColumn3, Self.DataColumn4));
  Self.Rasse.Constraints.AddRange(TArrayOfSystem_Data_Constraint.Create(System.Data.UniqueConstraint.Create('C' +
          'onstraint1', TArrayOfString.Create('Id'), False)));
  Self.Rasse.TableName := 'Rasse';
  // 
  // DataColumn1
  // 
  Self.DataColumn1.AutoIncrement := True;
  Self.DataColumn1.ColumnName := 'Id';
  Self.DataColumn1.DataType := TypeOf(Integer);
  // 
  // DataColumn2
  // 
  Self.DataColumn2.ColumnName := 'Name';
  // 
  // DataColumn3
  // 
  Self.DataColumn3.ColumnName := 'Buch';
  Self.DataColumn3.DataType := TypeOf(Integer);
  // 
  // DataColumn4
  // 
  Self.DataColumn4.ColumnName := 'Seite';
  Self.DataColumn4.DataType := TypeOf(Integer);
  // 
  // MainMenu1
  // 
  Self.MainMenu1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem1, 
          Self.MenuItem2, Self.MenuItem4));
  // 
  // MenuItem1
  // 
  Self.MenuItem1.Index := 0;
  Self.MenuItem1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem10, 
          Self.MenuItem11));
  Self.MenuItem1.Text := '&Datei';
  // 
  // MenuItem10
  // 
  Self.MenuItem10.Index := 0;
  Self.MenuItem10.Text := '--';
  // 
  // MenuItem11
  // 
  Self.MenuItem11.Index := 1;
  Self.MenuItem11.Text := '&Beenden';
  Include(Self.MenuItem11.Click, Self.MenuItem11_Click);
  // 
  // MenuItem2
  // 
  Self.MenuItem2.Index := 1;
  Self.MenuItem2.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem3));
  Self.MenuItem2.Text := '&Optionen';
  Include(Self.MenuItem2.Click, Self.MenuItem2_Click);
  // 
  // MenuItem3
  // 
  Self.MenuItem3.Index := 0;
  Self.MenuItem3.Text := '&Daten';
  Include(Self.MenuItem3.Click, Self.MenuItem3_Click);
  // 
  // MenuItem4
  // 
  Self.MenuItem4.Index := 2;
  Self.MenuItem4.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem5, 
          Self.MenuItem6, Self.MenuItem7, Self.MenuItem8, Self.MenuItem9));
  Self.MenuItem4.Text := '&Fenster';
  // 
  // MenuItem5
  // 
  Self.MenuItem5.Index := 0;
  Self.MenuItem5.Text := '&Horizontal aufteilen';
  Include(Self.MenuItem5.Click, Self.MenuItem5_Click);
  // 
  // MenuItem6
  // 
  Self.MenuItem6.Index := 1;
  Self.MenuItem6.Text := '&Vertikal aufteilen';
  Include(Self.MenuItem6.Click, Self.MenuItem6_Click);
  // 
  // MenuItem7
  // 
  Self.MenuItem7.Index := 2;
  Self.MenuItem7.Text := '&Kaskadieren';
  Include(Self.MenuItem7.Click, Self.MenuItem7_Click);
  // 
  // MenuItem8
  // 
  Self.MenuItem8.Index := 3;
  Self.MenuItem8.Text := '-';
  // 
  // MenuItem9
  // 
  Self.MenuItem9.Index := 4;
  Self.MenuItem9.Text := '&Test';
  Include(Self.MenuItem9.Click, Self.MenuItem9_Click);
  // 
  // Label1
  // 
  Self.Label1.Location := System.Drawing.Point.Create(184, 112);
  Self.Label1.Name := 'Label1';
  Self.Label1.TabIndex := 1;
  Self.Label1.Text := 'Label1';
  // 
  // Hauptfenster
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(496, 362);
  Self.Controls.Add(Self.Label1);
  Self.IsMdiContainer := True;
  Self.Menu := Self.MainMenu1;
  Self.Name := 'Hauptfenster';
  Self.Text := 'Taladans - DSA -Tools';
  Self.WindowState := System.Windows.Forms.FormWindowState.Maximized;
  Include(Self.Load, Self.Hauptfenster_Load);
  (System.ComponentModel.ISupportInitialize(Self.DataSet1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.Rasse)).EndInit;
  Self.ResumeLayout(False);
end;
{$ENDREGION}

function Hauptfenster.getLabel : String;
begin
  result := Label1.Text;
end;

procedure Hauptfenster.SetLabel(lab : String);
begin
  Label1.Text := lab;
end;


procedure Hauptfenster.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor Hauptfenster.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

procedure Hauptfenster.Hauptfenster_Load(sender: System.Object; e: System.EventArgs);
begin
  with DatenBox.Create do
  try
    MDIParent := self;
    Show;
  finally
    Dispose();
  end;
  with DatenBox.Create do begin
    MdiParent := self;
    Show;
  end;
end;

procedure Hauptfenster.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  DataSet1.WriteXML('test.xml');
end;

procedure Hauptfenster.MenuItem11_Click(sender: System.Object; e: System.EventArgs);
begin
  close;
end;

procedure Hauptfenster.MenuItem9_Click(sender: System.Object; e: System.EventArgs);
begin
    LayoutMDI(MDILayout.ArrangeIcons);
end;

procedure Hauptfenster.MenuItem7_Click(sender: System.Object; e: System.EventArgs);
begin
    LayoutMDI(MDILayout.Cascade);
end;

procedure Hauptfenster.MenuItem6_Click(sender: System.Object; e: System.EventArgs);
begin
    LayoutMDI(MDILayout.TileVertical);
end;

procedure Hauptfenster.MenuItem5_Click(sender: System.Object; e: System.EventArgs);
begin
    LayoutMDI(MDILayout.TileHorizontal);
end;

procedure Hauptfenster.MenuItem3_Click(sender: System.Object; e: System.EventArgs);
begin
  with DatenBox.Create do begin
    MdiParent := self;
    Show;
  end;
end;

procedure Hauptfenster.MenuItem2_Click(sender: System.Object; e: System.EventArgs);
begin

end;

end.

[Robert_G]

Dein Code funktioniert bei mir wenn ich einfach uHauptFenster in die uses im interface teil packe und die Property ändere so dass sie vom Typ HauptFenster ist.
Den ganzen Borland-Krempel (Borland.Vcl.SysUtils,...) Habe ich einfach rausgeschmissen. Du wolltest doch eine .Net Anwendung machen, oder? ;)
Außerdem hast du du dir da anscheinend mit viel Mühe ein DataSet zusammengeklickt.
Wenn du zur Laufzeit kurz das Schema irgendwohin speicherst (mit WriteXmlSchema) dann kannst du in dein Projekt ein neues XML Schema hinzufügen und den Inhalt dort reinkopieren. Die IDE wird dir daraus eine DataSet klasse erstellen die alles als feste Properties besitzt. (rechtsklick, generate DataSet)

Delphi-Quellcode:

DeinDataSet.DeineTabelle[0].DeineSpalte := 'Hallo';

[Taladan]

Vielen, vielen dank. :hello: :party: :corky: Nu hast du mir aber gleich die zweite Frage in die Hände gespielt

Zitat:

Zitat von Robert_G

Außerdem hast du du dir da anscheinend mit viel Mühe ein DataSet zusammengeklickt.

Jepp und wird noch viel, viel mehr Datas :thumb:. Da ich möglichst (erstmal ) auf eine echte Datenbank verzichten möchte, da nicht der nächste, der das Programm verwendet erstmal unmögliches installieren muß.

Zitat:

Zitat von Robert_G

Wenn du zur Laufzeit kurz das Schema irgendwohin speicherst (mit WriteXmlSchema)

Soweit gemacht und getan

Zitat:

dann kannst du in dein Projekt ein neues XML Schema hinzufügen und den Inhalt dort reinkopieren. Die IDE wird dir daraus eine DataSet klasse erstellen die alles als feste Properties besitzt. (rechtsklick, generate DataSet)

Hier hab ich keine Ahung wie es weiter geht. Kannst du das mal für volltumpfe Mochtegernprogrammiern erklären?

[Robert_G]

neue Frage, neuer Thread. ;)s