Es funktioniert!
Ich verstehe zwar nicht, warum es gerade nicht funktioniert hat, aber ich habe Folgendes geändert:
Aus der Procedure Create_frmLogIn habe ich das Design.Design_LogIn gelöscht.
Delphi-Quellcode:
procedure TForm_NMain.Create_frmLogIn;
begin
ShowMessage('7 Create FrameLogin');
if not Assigned(Form_LogIn) then begin
ShowMessage('7.1 TForm_LogIn.CreateNew');
Form_LogIn := TForm_LogIn.CreateNew(Form_NMain.Sheet_LogIn.ElementID, nil);
Form_LogIn.OnLogIn_Run:=Logic.Run_LogIn;
//Design.Design_LogIn;
end;
Form_NMain.Frame_Control.TabIndex:=0;
end;
In der Procedure WebFormShow habe ich erst das Form LogIn created und das Design als CallBack von Get_Sprache gesetzt.
Delphi-Quellcode:
procedure TForm_NMain.WebFormShow(Sender: TObject);
begin
FullScreen;
Create_frmLogIn;
ShowMessage('1 Main_Show');
ShowMessage(Sheet_LogIn.Name);
Data_Module.xConnection_connect(procedure
begin
ShowMessage('3 AonConnect');
Data_Module.Get_Property;
ShowMessage('4 Get_Property done');
Data_Module.Get_Sprache(Design.Design_LogIn);
end
);
end;
Eigentlich hätte ich erwartet, dass das keinen Unterschied macht...
Vielen Dank für die tolle Unterstützung!!!!
Patrick