Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Combobox.Text an andere Unit übergeben
31. Aug 2011, 18: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
|