Einzelnen Beitrag anzeigen

Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
356 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Delphi 7 32-Bit unter Windows 10/11 64-Bit Pro (.DEU und .ENU Dateien) CRASH

  Alt 28. Jul 2023, 19:10
Hallo,

ich habe die reinit.pas in das Projekt aufgenommen.
Weiters habe ich unten stehenden Quellcode.
Leider bekomme ich beim aufrufen der Prozedur eine Ausnahme: "Ancestor for '' not found."
Ist da vielleicht ein Fehler in der reinit.pas ?

Gruß, paule

Code:
procedure TForm1.PopupMenu_Tools_Language_GermanClick(Sender: TObject);
const
  GERMAN = (SUBLANG_GERMAN shl 10) or LANG_GERMAN ;
begin
  try
    if LoadNewResourceModule(GERMAN) <> 0 then
    ReinitializeForms;
  except
    on E: Exception do
    begin
      ShowMessage('Exception occur:' + #13#10 + E.Message);
    end;
  end;
end;
Frag doch einfach
  Mit Zitat antworten Zitat