Text aus Editfeld (Form1) nach Panel (Form2)

[CR3ATiV3]

Hallo,
ich bin die absolute Anfängerin und erst sein kurzem im Informatikurs in meiner Schule.
Nun soll ich ein Programm selbs programmieren.
Jetzt weiß ich aber nicht mehr weiter:
ich möchte das der eingegeben Name, den ich in Form1 in einem Editfeld eingebe als Panel in Form2 erscheint ...
aber i.wie bekomm ich das nicht hin ...

ich habe die Unit2 schon in die Unit1 eingebunden das klappt auch, aber alles andere nicht

ich hoffe ihr könnt mir helfen?! Ich brauche dringend eure Hilfe!

Ps. zu eurer Hilfe hab ich mein Quelltext beigefügt.

Code:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    SchliessenButton: TButton;
    AbbrechenButton: TButton;
    OkButton: TButton;
    NameEdit: TEdit;
    GroupBox1: TGroupBox;
    WillkommenLabel: TLabel;
    NameEingebenLabel: TLabel;
    IchheisseLabel: TLabel;
    QuizPanel: TPanel;
    procedure AbbrechenButtonClick(Sender: TObject);
    procedure OkButtonClick(Sender: TObject);
    procedure SchliessenButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 
  einName: String;

implementation

uses Unit2;

{ TForm1 }

procedure TForm1.OkButtonClick(Sender: TObject);
begin

end;

procedure TForm1.SchliessenButtonClick(Sender: TObject);
begin
  hide;
end;

procedure TForm1.AbbrechenButtonClick(Sender: TObject);
begin
  close;
end;

initialization
  {$I Unit1.lrs}

end.

[Luckie]

So geht es: http://www.michael-puff.de/Programmi...tauschen.shtml

[CR3ATiV3]

Dankeschön! Ich hab es auch gerade eingetippt, aber da zeigt er mir Fehler an.
Trotz deiner Mühe, war das mir zu kompliziert ... wir sind in Lazarus auch noch nicht so weit erst bei Modualisierung, d.h. ich brauch etwas einfacheres, denn ich muss es auch dem Lehrer erklären können was ich da gemacht habe ...

ich hatte das alles schon mal richtig gehabt, aber dann ist mir ein fehler passiert und dann war alles weg und jetzt weiß ich auch nicht mehr wie ich das gemacht hatte ...

der Quelltext sah so aus:

Code:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

 type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    NameEdit: TEdit;
    Edit1Name: TEdit;
    GroupBox1: TGroupBox;
    Begruessung: TLabel;
    Anweisung: TLabel;
    ich_heisse: TLabel;
    Ueberschrift: TPanel;
    procedure AbbrechenClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure OkClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; Name: String;

implementation

uses Unit2;

{ TForm1 }

procedure TForm1.OkClick(Sender: TObject);
begin
     Form2.Label1.Caption := NameEdith.text;
     form2.show;
     form2.caption := 'Meine erste Instanz von Tform2'
end;

procedure TForm1.AbbrechenClick(Sender: TObject);
begin
     close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

end;


 initialization
  {$I Unit1.lrs}

end.

ps. wie gesagt ich bin absolute anfängerin !

[DeddyH]

Das sieht aber nicht falsch aus, was stimmt denn damit nicht?

[CR3ATiV3]

Na im Panel in der 2. Form erscheint nicht der eingegeben Name aus Form1 ... und das versteh ich irgendwie nicht!?

Vielleicht wäre es besser wenn mir jmd. schritt für schritt erklärt, denn das prozeduren entstehen muss man ja auch irgendwo auf das formular klicken ...

[DeddyH]

Ist da ein Label auf dem Panel, oder willst Du die Caption des Panels setzen?

Zitat:

Form2.Label1.Caption := NameEdith.text; //Label1 oder Panel1?

[CR3ATiV3]

ein Label ...
sorry, ich verwechsel (noch) die Komponenten ... meinte immer Label ..

[DeddyH]

Tja, bei mir geht es (schnell unter Lazarus 0.9.28.2 ausprobiert).

[himitsu]

Sind denn im Objekt-Instektor bei den Ereignissen die entsprechenden Methoden verlinkt?

Das Form2.Label1.Caption := NameEdith.text; kompiliert so erstmal garnicht (sollte) es zumindestens nicht, denn NameEdith existiert nicht.

Also, wie kopiert sieht es nicht aus ... Ist das denn der "richtige" Code?

PS: Du kannst dien Projekt auch komprimieren und z.B. als ZIP mal komplett anhängen.

[CR3ATiV3]

Oh habe auch gerade gesehen, dass ein Schreibfehler darin ist - das "h" muss natürlich weg ... müsste es denn dann so funktionieren?!
oder hat jemand eine andere (einfache) idee wie ich es machen könnte?