Problem mit Sender

[jaenicke]

Spendiere deiner Form2 besser ein entsprechendes Event.

Delphi-Quellcode:

type
  TMyTextChangeEvent = procedure(Sender: TObject; const ANewMyText: String) of object;

TForm2 = class(TForm)
private
  FOnMyTextChange: TMyTextChangeEvent;
public
  property OnMyTextChange: TMyTextChangeEvent read FOnMyTextChange write FOnMyTextChange;
end;

// da wo du das in Form2 an Form1 geben willst
if Assigned(FOnMyTextChange) then
  FOnMyTextChange(Self, DeinNeuerText);

// Form1

TForm1 = class(TForm)
private
  procedure MyTextChangeEvent(Sender: TObject; const ANewMyText: String);
end;

procedure TForm1.MyTextChangeEvent(Sender: TObject; const ANewMyText: String);
begin
  // mach was mit ANewMyText
end;

// beim Aufruf von Form2:
Form2.OnMyTextChange := MyTextChangeEvent;
Form2.Show; //bzw. ShowModal

Dann muss dein Form2 dein Form1 nicht kennen.