Obtener el nombre del Form que llamó a otro Form.

[cybergerman]

Buenas tardes,

Hay alguna forma de saber el nombre del Formulario que realizó la llamada a otro (obviamente a partir de un click de algún botón)?.

Es decir , yo tengo una aplicación con un botón que hace la llamada a otro Form, el Form origen no queda atras, todavía no fue cerrado ya que es MDI.

Al hacer click en el botón , me aparece el otro Form, pero yo quiero desde este poder saber desde que Form fue llamado.

Hay alguna posibilidad, sin usar una función que yo le pase por ejemplo, el nombre del formulario a la otra pantalla?

[[egostar]]

Empezado por cybergerman

Hay alguna posibilidad, sin usar una función que yo le pase por ejemplo, el nombre del formulario a la otra pantalla?

Puedes asignar el nombre de la FormaX que lanzó a la Forma2 una variable publica.

Código Delphi [-]
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Llamada: string; //***********************
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormShow(Sender: TObject);
begin
  ShowMessage('Lanzada '+Llamada);
end;

end.

Y desde la FormaX la asignas y lanzas la forma2.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Llamada := 'Desde FormX';
  Form2.ShowModal;
end;

Salud OS

[*Caro*]

Hola cybergerman, puedes utilizar el Owner(propietario) del formulario, para ello cuando crees el segundo formulario debes decirle que su propietario sera el formulario actual.

Código Delphi [-]
procedure 
  Form2 := TForm2.Create(Self); //Self nos indica el formulario actual
  Form2.ShowModal;
 
 //Dentro de form2 podemos hacer lo siguiente, paar saber el nombre del que lo llamo (propietario)
 showmessage(TForm(Self.Owner).Name);

Saluditos

[[egostar]]

Empezado por Caro

Hola cybergerman, puedes utilizar el Owner(propietario) del formulario, para ello cuando crees el segundo formulario debes decirle que su propietario sera el formulario actual.

Saluditos

Ya decia yo, Caro va a llegar con uno de esos codigos que me estropean el negocio, asi no voy a conseguir clientes amiguita......

Salud ITOS

[*Caro*]

Empezado por egostar

Ya decia yo, Caro va a llegar con uno de esos codigos que me estropean el negocio, asi no voy a conseguir clientes amiguita......

Lo siento amiguito .

Saluditos

[[Lepe]]

Sólo aportar un detalle que me parece importante:

Código Delphi [-]
procedure TForm1.button1click(Sender:TObject);
begin
  Form2 := TForm2.Create(Self),
  Form2.Show;
end;

1 - Si cierras el Form1, se cierra automáticamente el Form2.
2 - Si Form2 ya estaba creado previamente, estás teniendo fugas de memoria, (lo que llamamos memory leak) ya que estás creando un TForm2 nuevo, pero asignándolo a la variable global "Form2"

Al ser ventanas MDICHILD se complica aún más porque, como dices, puede crearse la ventana Form2 desde varios sitios.

Hay soluciones elegantes y otras no tanto, no sé cual quieres utilizar:
- la "elegante": usar herencia visual creando una ventana base y métodos genéricos que pueden llamarse desde cualquier ventana del mismo tipo.
- La simple: comprobar que "Form2 = nil" antes de crear la ventana y al tiempo de cerrarla, poner esa variable a nil (en el Form2.Close).

Saludos

[cybergerman]

Les agradezco,
solución ganadora, la propuesta por Caro.

Yo realizaba la llamada a mi otro form de esta forma:

procedure TForm1.Button1Click(Sender:TObject);
begin
if not Assigned (Form2) then
Application.CreateForm (TForm2,Form2)
else
Form2.Show;
end;

la form2 es una unit que yo ya la había agregado a la unit form1.
Pero en el form2 no tenía forma de saber que form lo había llamado a no ser que definiera una variable global en el form2.

Así que reemplazé el código por la de Caro y ya funciona.

Gracias

[JoseAntonio]

Yo lo que haria es crear el formulario, mostrarlo y a la hora de cerrarlo liberarlo (Action = Cafreee en caso de MDI), si quiero cargar el formulario nuevamente pues lo creo de nuevo. Aunque no lo creas, de esta manera optimizaras el uso de la memoria y ademas, evitaras estar pensando si tu variable Form2 esta instanciada o no.

[*Ghost*]

Hola, bueno soy nuevo en delphi y me ha gustado esta web, tenia una duda aver si me ayudan que no he entendido muy bien:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
       procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nombre: Integer;

implementation

uses Unit2;

{$R *.dfm}



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
nombre:= 123456;
if edit1.Text = inttostr(nombre) then
Label1.Caption:= 'Contraseña correcta'
Application.CreateForm(TForm2,Form2)
Form2.Show
else
Label1.Caption:='contraseña incorrecta';
end;

end.

COmo hago para llamar un segundo formulario desde el formulario principal?

[[Lepe]]

sólo te falta un begin... end porque dicho if tiene más de una instrucción dentro:

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
       procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nombre: Integer;

implementation

uses Unit2;

{$R *.dfm}



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
nombre:= 123456;
if edit1.Text = inttostr(nombre) then
begin
  Label1.Caption:= 'Contraseña correcta'
  Application.CreateForm(TForm2,Form2)
  Form2.Show
end
else
 Label1.Caption:='contraseña incorrecta';

end;

end.

COmo hago para llamar un segundo formulario desde el formulario principal?[/quote]