Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

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

Re: Problem bei weiterleiten nach Unit 2

  Alt 12. Okt 2009, 16: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