Læse en string fra en anden form

Showmessage(form1.minstr);

Fra en ren objektorienteret synsvinkel skal din form1 offentliggøre strengen - og strengen skal være privat så du kan styre om den er skrivebeskyttet eller ej.

type
  TForm1 = class(TForm)
  ..
  private
    fMinROStreng: string; // ReadOnly
    fMinRWStreng: string; // ReadWrite
  public
    property MinROStreng: string read fMinROStreng;
    property MinRWStreng: string read fMinRWStreng write fMinRWStreng;
  end;

I form2:

procedure TForm2.VisForm1Click(Sender: TObject);
var
  Form1: TForm1;
begin
  Form1 := TForm1.Create(self);
  try
    ShowMessage(Form1.MyROStreng);
    ShowMessage(Form1.MyRWStreng);

    // Form1.MyROStreng := 'Hello'; // Kan ikke oversættes
    Form1.MyRWStreng := 'World'; // Kan ikke oversættes

    ShowMessage(Form1.MyRWStreng);
  finally
    Form1.Release;
  end;
end;

Nedenstående linje er naturligvis en CopyPase fejl (slet kommentaren)

  Form1.MyRWStreng := 'World'; // Kan ikke oversættes

hrc:
Det er godkendt, smid et svar...

OK