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
public
myData : TData;
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
public
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.