Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Combobox.Text an andere Unit übergeben

  Alt 31. Aug 2011, 17:37
Wie gesagt: der eleganteste Ansatz geht IMO über eine Propery. Dann besteht auch keine Notwendigkeit mehr, dass Form2 Form1 kennen muss. Beispiel:
Delphi-Quellcode:
type
  TForm2 = class(TForm)
  ...
  private
    FStringProperty: string:
    FIntProperty: integer;
    ...
  public
    ...
    property StringProperty: string read FStringProperty write FStringProperty;
    property IntProperty: integer read FIntProperty write FIntProperty;
  end;

...

procedure TForm2.FormShow(Sender: TObject);
begin
  ShowMessage(Format('String: %s, Int: %d', [StringProperty, IntProperty]));
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.StringProperty := 'Ach was?!';
  Form2.IntProperty := 42;
  Form2.Show;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat