Overføre variabelindhold fra form1 til form2 ved ShowModal

Hvis du har en var. i form2 der hedder y og en var i form1 der hedder x overfører du den således:

Form2.x:=y;
Form2.ShowModal;

Eller du laver en procedurer i Form2 der modtager variablen.

procedurer Form2.Modtag(py : integer);
begin
  y:=py;
  ShowModal;
end;

kaldes så fra Form1 på denne måde:

Form2.Modtag(x);

ah, mange tak :) opretter du svar?

ok