[oesqueda]

Que tal, antes este codigo en delphi 6, no me mostraba un icono aparte.

Código Delphi [-]
function EditarEmpresa(AHandle:HWND; ADataSet:Int64; var AID:Int64):Boolean;
var
  iHandle:Cardinal;
begin
Reloj;
Result := False;
iHandle := Application.Handle;
try
  if iHandle <> AHandle then
    Application.Handle := AHandle;

  dmDir001 := TdmDir001.Create(Application);
  try
    frmEditarEmpresa := TfrmEditarEmpresa.Create(Application);
    Result := IsPositiveResult(frmEditarEmpresa.ShowModal);
...
except
  on E: Exception do
    MostrarExcepcion(E, 'Error al editar la empresa');
end; {try}
Application.Handle := iHandle;
Normal;
end;

Pero en delphi XE si lo hace y a veces queda la ventana por debajo de la ventana principal, alguien que le haya pasado lo mismo?

Saludos