Ver Mensaje Individual
  #2  
Antiguo 19-12-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por cybergerman Ver Mensaje
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita