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;
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