Passar Parâmetros entre Forms

[IvanLeal 0]

Como faço para passar Parâmetros entre Forms?

[Pezzin 0]

Eu usaria variáveis Public.

[Motta 645]

Eu prefiro metodos publicos e variaveis privadas , e mais limpo e seguro.

[IvanLeal 0]

Motta,Como se trabalha com métodos públicos?

[Motta 645]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    par1 : string;
  public
    { Public declarations }
    procedure Setpar1(s:string);
    function Getpar1:string;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.Getpar1: string;
begin
  Result := par1;
end;

procedure TForm1.Setpar1(s: string);
begin
  par1 := s;
end;

end.

 

 

para criar este form

 

frm := TForm1.Create(self);

frm.SetPar1(171);

frm.showmodal;

...

edit1.text := getpar1;

 

você pode suprimir o método set ou get , protegendo

a param de escrita leitura