Hola amigos del club:
Tengo el siguiente problema con un aplicación, estoy mostrando las ayudas en una barra statusbar al desplazar el mouse sobre cualquier objeto de la ventana, esto me funcione correctamente. El problema sucede cuando creo las ventanas dinamicamente mediante este codigo.
Código Delphi
[-]
Procedure MostrarModal(AClass : TFormClass);
Begin
with AClass.Create(Application) do
Begin
try
ShowModal;
finally
free;
end
End
End;
Cuando quiero mostrar una ventana llamo este procedimiento y al cerrar la ventana me arroja una exepción cerrandome la ventana que creo la nueva ventana el sitio de codigo que me arroja la excepcion es este
Código Delphi
[-]
Procedure TItemFactura.MiHint(Sender: TObject);
Begin
try
if Application.Hint <> '' then
LMDStatusBar1.SimpleText := Application.Hint;
finally
end
End;
Con este codigo activo las ayudas de cada componente de la ventana
Código Delphi
[-]
procedure TItemFactura.FormCreate(Sender: TObject);
begin
Application.OnHint := MiHint;
end;
en la excepcion que me arroja aparece un error creo de mensajes pero no se como solucionar este error, este error no aparece cuando las ventanas son ya creadas automanticamente por delphi y se muestran mediante showModal.
No se si es clara la pregunta
Gracias por la atencion prestada