AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem bei weiterleiten nach Unit 2

Ein Thema von DutchmanTom · begonnen am 12. Okt 2009 · letzter Beitrag vom 12. Okt 2009
 
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.645 Beiträge
 
#3

Re: Problem bei weiterleiten nach Unit 2

  Alt 12. Okt 2009, 15:42
Du kannst das Form nicht erst nicht-Modal anzeigen (.Show) und dann das bereits angezeigte Form nochmal Modal anzeigen (.ShowModal).

Und dann ist das zugreifen auf Elemente des anderen Forms auch nicht wirklich sauber.

Ich würde das so machen:
Delphi-Quellcode:
var inputForm: TForm2;
var AdressDaten: TAdressDatenRecord;
begin
  inputForm := TForm2.Create(AdressDaten);
  try

    if inputForm.ShowModal = mrOk then
    begin
      AdresseAnlegen(AdressDaten);
    end;

  finally
    FreeAndNil(inputForm);
  end;

end;
Wobei Adressdaten ein Record ist, der alle Adressfelder besitzt, die Du derzeit einzeln übergibst.
Form2 füllt bei einem Klick auf okay diesen Record (der im Constructor schon übergeben wird) mit den Daten aus den Input-Feldern.

Das hat dann auch noch gleich den Vorteil, dass Dein Code die Felder im Form zwei gar nicht kennen muss.
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:08 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-2025 by Thomas Breitkreuz