Ver Mensaje Individual
  #6  
Antiguo 06-05-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 26
Delphius Va camino a la fama
Hola Carlos Arevalo,
No tengo Delphi a mano, pero creo que el error está aquí:

Código Delphi [-]
function xform(formsender: Tform; Sender: TObject): Boolean;
begin
 formsender:=Tform(formsender).Create(self);
 Tform(formsender).showmodal; // <- ¿Esto es correcto... Para mi que no?
 result:=true;
end;

Creo que debería ser así:

Código Delphi [-]
fuction xForm(FormSender: TForm; Sender: TObject): boolean;
begin
  FormSender := TForm.Create(Application);
  result := FormSender.ShowModal = mrOK;
end;

Ahora yo me pregunto ¿Y para que el parámetro sender?
No tengo Delphi a mano... pero que va.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita