Cómo ejecutar un método de un formulario desde otro

[alba13]

si. y el form del que llamo al metodo usa el otro form (use)

[[Ivanzinho]]

¿Puedes poner el código de la llamada al método?

Un saúdo

[alba13]

Código Delphi [-]
function veces :integer;
begin
      result :=strToInt(Form4.Edit1.Text);
end;
 
procedure TForm4.Button1Click(Sender:TObject);
begin
       form2.visible := true;
       form2.calculoPi(veces);
end;
 
//en el form2
public procedure calculoPi(veces:integer);
begin 
end;

[dec]

Hola,

Fíjate que "calculoPi" debe ser un método de "form2", y no un procedimiento cualquiera. Es decir:

Código Delphi [-]
procedure calculoPi(veces: integer);
begin
  {...}
end;

Es un procedimiento, aunque se implemente en la misma unidad que "form2", pero:

Código Delphi [-]
procedure TForm2.calculoPi(veces: integer);
begin
  {...}
end;

Ya es un método de "form2", y por tanto puede ser ejecutado como tú requieres:

Código Delphi [-]
begin
  form2.calculoPi(2);
end;

[alba13]

ahora lo miro.
muchas gracias

[alba13]

supuestamente si yo pongo form2. deberia desplegarse la lista de metodos y componentes publicos no?
es que no ocurre asi en mi programa y eso puede ser q no puede acceder a el no?

[dec]

Hola,

Efectivamente, el método al que quieres acceder debería ser público y no privado.

Código Delphi [-]
unit Unit2;

interface

{...}

type
  TForm2 = class(TForm)
  public
    procedure calculoPi(veces: integer);
  end;

var
  Form2: TForm2;

implementation

{...}

procedure TForm2.calculoPi(veces: integer);
begin
  {...}
end;

Código Delphi [-]
unit Unit1;

interface

{...}

type
  TForm1 = class(TForm)
  private
    procedure UsaCalculoPi(); 
  end;

var
  Form1: TForm1;

implementation

uses
  Unit2;

procedure TForm2.UsaCalculoPi();
begin
  Form2.calculoPi(2);
end;

Más o menos...