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;