Einzelnen Beitrag anzeigen

hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#2

Re: Datenaustausch zwischen Main- und Einstellungs-Form

  Alt 9. Apr 2004, 22:02
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
Power is nothing without TControl
  Mit Zitat antworten Zitat