Pasar datos de un form a otro.

[cenriquet]

Así es como me quedan las dos forms (Por si sirviese de ejemplo para otros)

Form Principal

Código Delphi [-]
unit Triangulo_MainUnit;

interface

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

type
  TData = record
            valor1 : string;
            valor2 : string;
            valor3 : string;
          end;

  TTriangulo_MainForm = class(TForm)
    Input: TButton;
    Output: TBitBtn;
    Results: TMemo;
    procedure InputClick(Sender: TObject);
    procedure OutputClick(Sender: TObject);
  private
    { Private declarations }
  public

    myData : TData;    { Public declarations }

  end;

var
  Triangulo_MainForm: TTriangulo_MainForm;

implementation

uses Triangulo_InputData;


{$R *.DFM}

procedure TTriangulo_MainForm.InputClick(Sender: TObject);
begin
  InputDataForm.ShowModal()
end;

procedure TTriangulo_MainForm.OutputClick(Sender: TObject);
begin
  with myData do
    begin
      Results.Lines.Add(' ');
      Results.Lines.Add(valor1);
      Results.Lines.Add(valor2);
      Results.Lines.Add(valor3);
    end;
end;

end.

Form Secundaria

Código Delphi [-]
unit Triangulo_InputData;

interface

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

type
  TInputDataForm = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  InputDataForm: TInputDataForm;

implementation

{$R *.DFM}

procedure TInputDataForm.Button1Click(Sender: TObject);
var
  myDataIn: TData;

begin
  with myDataIn do
  begin
    valor1 := Edit1.text;
    valor2 := Edit2.text;
    valor3 := Edit3.text;
  end;
  Triangulo_MainForm.myData := myDataIn;
  Close;
end;

end.

Lo mejor de todo es que ¡¡¡¡¡¡¡¡¡FUNCIONA!!!!!!!!!!

Me ha surgido una duda. La instrucción:

Triangulo_MainForm.btnOutputClick(nil);

¿qué hace exactamente?

Muchas gracias.

[Neftali [Germán.Estévez]]

Empezado por cenriquet

Lo mejor de todo es que ¡¡¡¡¡¡¡¡¡FUNCIONA!!!!!!!!!!

Bueno, de eso se trataba, ¿no?

Empezado por cenriquet

Me ha surgido una duda. La instrucción:
Triangulo_MainForm.btnOutputClick(nil);
¿qué hace exactamente?

Si te fijas, en el primer formulario tienes un procedimiento definido así:

Código Delphi [-]
procedure TTriangulo_MainForm.OutputClick(Sender: TObject);
begin
  with myData do
    begin
      Results.Lines.Add(' ');
      Results.Lines.Add(valor1);
      Results.Lines.Add(valor2);
      Results.Lines.Add(valor3);
    end;
end;

Es el procedimiento que tienes asignado al botón Output al hacer un Click. En realidad es un procedimiento como cualquier otro que se asigna a ese evento del botón.
A este procedimiento también puedes llamarlo de forma "manual", además de que esté asignado al evento.
Al llamarlo lo que consigues es el mismo efecto que si pulsaras el botón, ya que el resultado es el mismo:

1) O lo llama el botón de forma automática al ser pulsado.
2) O lo llamas de forma manual como he hecho yo.

Un saludo.

[cenriquet]

Muchas gracias por tu ayuda y a menos que alguien aporte una solución más elegante, creo que podemos dar el tema por cerrado.