Einzelnen Beitrag anzeigen

alf.krause

Registriert seit: 23. Apr 2007
21 Beiträge
 
Delphi 12 Athens
 
#9

AW: Ungültiges Fenster Handle - seit 10.2. Tokyo

  Alt 9. Aug 2017, 21:36
Der Debugger bleibt erst hier stehen

Code:
procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    try
      WindowProc(Message);
    finally
      FreeDeviceContexts;
      FreeMemoryContexts;
    end;
  except
    [B]Application.HandleException(Self)[/B];
  end;
end;
dann hier

Code:
procedure RaiseLastOSError(LastError: Integer; const AdditionalInfo: string); overload;
var
  Error: EOSError;
begin
  if LastError <> 0 then
    Error := EOSError.CreateResFmt(@SOSError, [LastError, SysErrorMessage(LastError), AdditionalInfo])
  else
    Error := EOSError.CreateRes(@SUnkOSError);
  Error.ErrorCode := LastError;
  raise Error;
end;
  Mit Zitat antworten Zitat