Ver Mensaje Individual
  #9  
Antiguo 11-10-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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...
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 11-10-2007 a las 10:36:26.
Responder Con Cita