Zugriff auf Objekt in TObjectList

[Ykcim]

Er springt nach else und gibt "Not assigned" aus...

Delphi-Quellcode:

for I := 0 to FListe_Button.Count -1 do begin
      ShowMessage(FListe_Button.Items[I].ClassName);
      if Assigned(FListe_Button.Items[I]) then
         ShowMessage(FListe_Button.Items[I].ClassName)
      else
         ShowMessage('Not assigned');
      if FListe_Button.Items[I] is TTMSFNCToolBarButton then
         ShowMessage('OK')
      else
         ShowMessage('Not OK');
   end;

Und wenn ich das assigned nicht abprüfe gibt er folgenden Error aus:

Zitat:

TypeError: Cannot read property '$classname' of null at Object.Labeling_GlowButtons

[hoika]

Hallo,
ok, oder auch nicht, dann weiter

ShowMessage(Form_LogIn.ClassName)
ShowMessage(Form_LogIn.btn_login_abbruch.ClassName )

und zwar unmittelbar vor dem
Labeling_GlowButtons;


und noch was

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;

[Ykcim]

Also,

ShowMessage('7.1 TForm_LogIn.CreateNew'); hat 7.1 ... korrekt angezeigt.
ShowMessage(Form_LogIn.ClassName); hat TForm_LogIn ausgegeben

ShowMessage(Form_LogIn.btn_login_abbruch.ClassName ); hat wieder zu einem Error geführt:

Zitat:

ERROR
Uncaught TypeError: Cannot read property '$classname' of null | TypeError: Cannot read property '$classname' of null at Object.Design_LogIn (http://localhost:8000/NedCom_Web/Ned...b.js:119492:89) at Create_frmLogIn

Wenn ich die Autovervollständigung nutze [STRG+LEERTASTE], dann erkennt Delphi den btn_login_abbruch und zeigt auch an, dass es ein TTMSFNCToolBarButton ist. Aber auf den Button kann ich trotzdem nicht zugreifen...

[Ykcim]

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