Cita:
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
public
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