ich mache es so: das unterformular bekommt einen Pointer auf einen Datensatz im Hauptformular.
der typ wird am besten in einer separaten
unit deklariert.
extra
unit:
Delphi-Quellcode:
[...]
type TEigenertyp = record
s1,s2: string[255];
i,j,k: integer;
r: real;
end;
type PEigenerTyp = ^TEigenerTyp;
[...]
Hauptformular:
Delphi-Quellcode:
uses extraunit;
...
var
x: TEigenerTyp;
...
Aufruf des unterformulars:
Delphi-Quellcode:
procedure TForm1.Button1Click(sender: TObject);
begin
unterformular.anzeigen(@x);
end;
und im unterformular:
Delphi-Quellcode:
type TForm2 = class(TForm)
[...]
public
remote: PEigenerTyp;
procedure anzeigen(uebergeben: PEigenerTyp);
end;
[...]
implementation
[...]
procedure TForm2.anzeigen(uebergeben: PEigenerTyp);
begin
remote := uebergeben;
self.show;
end;
procedure TForm2.abfragebuttonClick(Sender:TObject);
begin
// ändern
remote^.s1 := prompt(...);
end;
Edit: verdammt warum kann ich nie was posten ohne danach fehler zu sehen...
uff so jetzt::
Edit: VERDAMMT. jetzt aber