Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Wert aus anderem Form übernehmen (https://www.delphipraxis.net/38969-wert-aus-anderem-form-uebernehmen.html)

Darksaber 26. Jan 2005 22:11


Wert aus anderem Form übernehmen
 
Hallo

zu aller erst: Ich bin ein totaler Delphi-Anfänger ;)

Ich versuche gerade, den Wert aus einem Edit-Feld in einem Formular als Caption eines Lables in einem anderen Formular einzufügen, bekomme es aber nicht hin.
Delphi-Quellcode:
procedure TForm3.FormCreate(Sender: TObject);
begin
  tabellenname_lable.Caption := Form2.formfield_tabellenname.Text;
end;
Das Programm läuft, das Formular wird aufgerufen, aber der Wert wird nicht eingefügt.
Wie muss ich es richtig machen?

Gruß
Darksaber

Gentleman 26. Jan 2005 22:20

Re: Wert aus anderem Form übernehmen
 
hi also eigentlich müsste es etwa so funktionieren:

Delphi-Quellcode:
Label1.Caption:= Form2.Caption;

Kernel32.DLL 26. Jan 2005 22:25

Re: Wert aus anderem Form übernehmen
 
Zitat:

Zitat von Gentleman
hi also eigentlich müsste es etwa so funktionieren:

Delphi-Quellcode:
Label1.Caption:= Form2.Caption;

Das will er aber gar nicht :wink:

Wuaegner 26. Jan 2005 22:31

Re: Wert aus anderem Form übernehmen
 
Kommt ne Fehlermeldung oder passiert einfach nix?
Steht denn überhaput ein Wert im Edit-Feld wenn Form3 erzeugt wird?

leddl 26. Jan 2005 22:43

Re: Wert aus anderem Form übernehmen
 
Ich gehe mal davon aus, daß du das nicht dann reinschreiben willst, wenn das Formular erzeugt, sondern wenn es angezeigt wird. Daher brauchst du nicht die FormCreate-Methode (wird beim Erstellen des Forms aufgerufen), sondern FormShow (wird beim Anzeigen des Forms aufgerufen).
Sollte also so aussehen:
Delphi-Quellcode:
procedure TForm3.FormShow(Sender: TObject);
begin
  tabellenname_lable.Caption := Form2.formfield_tabellenname.Text;
end;

Darksaber 26. Jan 2005 22:51

Re: Wert aus anderem Form übernehmen
 
Zitat:

Zitat von leddl
Delphi-Quellcode:
procedure TForm3.FormShow(Sender: TObject);
begin
  tabellenname_lable.Caption := Form2.formfield_tabellenname.Text;
end;

so funktionierts, danke :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz