Ver Mensaje Individual
  #3  
Antiguo 03-01-2013
cenriquet cenriquet is offline
Registrado
NULL
 
Registrado: ene 2013
Posts: 3
Reputación: 0
cenriquet Va por buen camino
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.
Responder Con Cita