Gracias Neftali.
Me podrias orientar como declarar la clase para poder utilizar el
Self.
Yo trate colocando:
Código Delphi
[-]
type
Tformsender = class(TForm)
Pero no me funciono, no tengo muy claro como debo hacer para declararla.
Código Delphi
[-]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms;
type
Tformsender = class(TForm)
end;
function xform(formsender: Tform; Sender: TObject): Boolean;
implementation
function xform(formsender: Tform; Sender: TObject): Boolean;
begin
formsender:=Tform(formsender).Create(self);
Tform(formsender).showmodal;
result:=true;
end;
end.