Text von Form2 nach Form1 übergeben

[Blumi]

Hi zusammen

Entweder spinnt mein Delphi oder ich mache einfach inen blöden Fehler den ich seit einer Stunde noch nicht gefunden habe.

Ich möchte einfach Einträge aus der Form2 in die ListView1 in Form1 eintragen.
Wenn ich folgenden Code von Form1 nach Form1 mache dann erscheint es auch in der ListView1, die sich in der Form1 befindent:

Delphi-Quellcode:

 With ListView1.Items.Add do
  begin
   Caption := Edit1.Text;    
   SubItems.Add(mtext); 
   SubItems.Add(valort); 
   SubItems.Add(ende); 
   SubItems.Add(neuerstart);  
   SubItems.Add(var5);
   SubItems.Add(team)
  end;

Jetzt hab ich versucht in Form2 diesen Code:

Delphi-Quellcode:

 With Form1.ListView1.Items.Add do
  begin
   Caption := Edit1.Text;    
   SubItems.Add(mtext); 
   SubItems.Add(valort); 
   SubItems.Add(ende); 
   SubItems.Add(neuerstart);  
   SubItems.Add(var5);
   SubItems.Add(team)
  end;

Aber wenn ich das mache passiert rein gar nichts.


So und deshalb hab ich in Form1 als Test eine Label1 gemacht. Und in Form2 folgendes geschrieben:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Label1.Caption := 'Hallo';
end;

Aber in Form1 steht immer noch Label1 ??

Könnt ihr mir da bitte weiterhelfen, ich weiss nicht mehr was ich ausprobieren könnte. :gruebel:

[mkinzler]

Ich würde mal versuchen ein Redraw von Form1 zu erzwingen:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
    Form1.Label1.Caption := 'Hallo';
    Form1.Update;
end;

Wenns funktioniert in der anderen Methode das selbe.

[Blumi]

Hi mkinzler

Vielen Dank für die schnelle Antwort, aber leider passiert damit auch nichts :cry:

[mkinzler]

Es kommt auch keine Fehlermeldung? Eigentlich sollte es so funktionieren.

[Matze]

Hi

Bei mir geht es auch ohne Probleme, das simple Beispiel hier mal im Anhang.

[Blumi]

Nein! Ich habe auch schon versucht den Computer neu zu starten.
Aber ich weiss jetzt auch nicht an wieso es nicht klappen könnte.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Label1.Caption := 'Hallo';
Form1.Update;
Form2.Close;
end;

so steht es. Und es klappt nicht :(, naja danke muss ich eben wieder etwas anderes versuchen

[Blumi]

Zitat:

Zitat von Matze

Hi

Bei mir geht es auch ohne Probleme, das simple Beispiel hier mal im Anhang.

Hi Matze, wenn ich dein Projekt öffne, klappt es wie ichs mir vorgestellt habe, aber wenn ich den Code in mein jetziges Projekt einfügen geht gar nichts :?:

[mkinzler]

Versuch mal die Daten aus der Form2 zu holen, anstatt sie in Form1 zu schieben.

z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin 
    if Form2.ShowModal then 
    begin
        Label1.Caption := form2.Edi1.Text;
        Update;
    end;
end;

[EDatabaseError]

Da ich auch einmal solche Fehler hatte:

-Hast du in irgenteinem OnShow, OnHide, OnActivate ein ListBox Clear drin?


Mfg
Tobi

[Blumi]

Zitat:

Zitat von EDatabaseError

Da ich auch einmal solche Fehler hatte:

-Hast du in irgenteinem OnShow, OnHide, OnActivate ein ListBox Clear drin?


Mfg
Tobi

Nein habe ich nicht. Klappt es wenn ich es drin habe?