String i en ny form

Erklær den som variabel i formen. Sig så uses unit1 i unit2 (helst
nedenunder \"implemention\", og så kan du bruge den som

  form1.filnavn

eller

  unit1.form1.filnavn

Det virker ikke.
koden ser så dan her ud

procedure TForm2.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(filename);
Form2.Caption:= filename;


end;

og det virker fint i form1 men ikke i form2

Som erikjacobsen siger, så burde følgende virke

procedure TForm2.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate(form1.filename);
  Form2.Caption:= form1.filename;
end;

under \"implementation\" i unit2
skriver du

uses
  unit1;

Hvis ikke, hvad gør den så galt ??

Du kan nok ikke gøre det på Create - de to forme bliver ikke lavet
på samme tid, så du kan nemt komme til at referere en ikke-created form.
Brug OnActivate, samt en boolean, der siger om det er første gang.

Eller OnShow , kan måske også bruges

Bestemt - jeg mener dog OnActivate bliver kaldt knap så tit, derfor. (og fordi
det står i bøgerne)

OnActivate bliver kald hver gang du har været væk fra vinduet og trykker på den igen.

OnShow bliver kun kaldt når man kalder formen med form1.show.

Tror jeg nok.

Jeg prøvede lige og lave 2 forms og der returnerede den en tom streng i FormCreate, men den var ikke tom i OnShow og OnActivate, så undskyld megalas, det ser ikke ud til det virker i formcreate, som jeg skrev lige før !!

Okay - jeg har ikke tid til at checke, men under alle omstændigheder er idéen:

I unitx:

  var firsttime: boolean =true;


og så i en OnActivate:

  if firsttime then
  begin
      hvad du nu lige skal have gjort med de andre forme;
      firsttime:=false;
  end;

(eller OnShow - principielt lige meget)

jep, lad os se hvad han finder ud af !!

så vidt jeg kan se har du sat koden ind i Form2 createren og du vil hente fra et komponent i form1 et ikk?

hvis ja så skal du skrive:

procedure TForm2.FormCreate(Sender: TObject);
begin
  form1.WebBrowser1.Navigate(filename);
  Caption:= filename;
end;

Det hjælper stadig ikke.
Jeg har lavet en text box som skulle vise stringen filename men det virker ikke...
her er hele koden for unit2

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;


    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    filename: String;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;



{$R *.DFM}





procedure TForm2.FormShow(Sender: TObject);
begin
webBrowser1.Navigate(filename);
Form2.Caption:= filename;

Edit1.Text:= filename;
end;

end.

Filename ligger jo i unit2 skulle den ikke ligge i unit1 ?????

Kan vi ikke lige få koden til unit1 også ??

Ja, det har du ret i...
Nå men nu ved jeg det mange tak alle sammen...
Og det virker også