Zugriff auf Objekt in TObjectList

[hoika]

Hallo,

Zitat:

Form_LogIn.btn_login_abbruch

entweder das Form ist bereits freigegeben, oder der Button ist gar kein TTMSFNCToolBarButton.
Zeig mal die DFM (falls es das noch gibt, ich kenne mich mit WebCore nicht aus).

[Ykcim]

Zitat:

Für mich sieht das so aus, als ob du in die Liste schon ein Nil-Object reinpackst. Sprich gibt es die Button zu dem Zeitpunkt wo die Prozedur läuft schon?

Wahrscheinlich liegt hier der Fehler. Ich habe gerade mal getestet, ob ich in der Procedure, die die Buttons in die Liste packt, den Button.Name abgreifen kann. Das Ergebnis war wieder der gleiche Error...

Hier der Aufbau meines Programm-Starts. Ich habe die richtige Reihenfolge mit den nummerierten ShowMessages abgeprüft!

Form_NMain

Delphi-Quellcode:

implementation

uses
   Form_LogInUnit, Form_UebersichtUnit, Form_DispoUnit, TDataUnit, TDesignUnit,
   TLogicUnit;

Delphi-Quellcode:

procedure TForm_NMain.WebFormShow(Sender: TObject);
begin
   FullScreen;
   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(Create_frmLogIn);
      end
      );
end;

Data_Module

Delphi-Quellcode:

implementation

uses TLogicUnit, TDesignUnit;

Delphi-Quellcode:

procedure TData_Module.xConnection_connect (AOnConnect: TConnectCallback);
   procedure OnConnect;
   begin
      if Assigned(AOnConnect) then begin
         ShowMessage('2 Connection Ready');
         AOnConnect();
      end;
   end;
   procedure OnError(Error: TXDataWebConnectionError);
   begin
      ShowMessage('XData server connection failed with error: ' +
      Error.ErrorMessage);
   end;
begin
   if xConnection.Connected then begin
      if Assigned(AOnConnect) then begin
         AOnConnect();
      end;
   end
   else begin
      xConnection.Open(@OnConnect, @OnError);
   end;
end;

Delphi-Quellcode:

procedure TData_Module.Get_Sprache(AOnDataRecieved: TDataRecievedCallback);
   procedure OnResponse(Response: TXDataClientResponse);
   begin
      JSON_DataSet(xDST_Sprache, Response);
      ShowMessage('6 GetSprache DataReceived');
      if Assigned(AOnDataRecieved) then begin
         AOnDataRecieved();
      end;
   end;
begin
   xClient.RawInvoke('IData_xChangeService.Get_Sprache',[], @OnResponse);
   ShowMessage('5 GetSprache');
end;

Form_NMain

Delphi-Quellcode:

procedure TForm_NMain.Create_frmLogIn;
begin
   ShowMessage('7 Create FrameLogin');
   if not Assigned(Form_LogIn) then begin
      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;

Unit Design

Delphi-Quellcode:

implementation
uses TDataUnit, TLogicUnit, Form_NMainUnit, Form_LogInUnit;

Delphi-Quellcode:

procedure TDesign.Design_LogIn;
begin
   ShowMessage('8 Design LogIn');
   FListe_Button.Add(Form_LogIn.btn_login_abbruch);
   FListe_Button.Add(Form_LogIn.btn_login_ok);
   Labeling_GlowButtons;
end;

Delphi-Quellcode:

procedure TDesign.Labeling_GlowButtons;
var
   I: integer;
   MyButton: TTMSFNCToolBarButton;
   Button_Text: string;
begin
   Showmessage('9 Labeling LogIn');
   ShowMessage('Anzahl Buttons: '+IntToStr(FListe_Button.Count));
   ShowMessage('Anzahl Sprach-Einträge: '+IntToStr(Data_Module.xDST_Sprache.RecordCount));
   ShowMessage(Data_Module.xDST_Sprache.FieldByName('btn_login_abbruch').AsString);
   for I := 0 to FListe_Button.Count -1 do begin
      if Assigned(FListe_Button.Items[I]) then
         ShowMessage(FListe_Button.Items[I].ClassName)
      else
         ShowMessage('Not assigned'); //Das ist das Ergbenis

      if FListe_Button.Items[I] is TTMSFNCToolBarButton then
         ShowMessage('OK')
      else
         ShowMessage('Not OK');  //Das ist das Ergebnis
   end;
end;

Die Reihenfolge 1-9 wird in korrekter Reihenfolge aufgerufen.

Sieht jemand, was ich falsch mache???

Vielen Dank für Eure Unterstützung!
Patrick

[hoika]

Hallo,
was wird denn hier

ShowMessage(FListe_Button.Items[I].ClassName)

angezeigt?

[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

[DieDolly]

Jetzt mach noch was als Lösung in https://www.delphipraxis.net/1453114-post17.html vorgeschlagen wurde und alles ist sauber.

[Ykcim]

Sorry, dass ich da noch einmal nachfragen muss.

Delphi-Quellcode:

procedure TDesign.Design_LogIn;
var
   BList: TObjectList;
begin
   BList:= TObjectList.Create;
   BList.OwnsObjects:= false;
   Try
      BList.Add(Form_LogIn.btn_login_abbruch);
      BList.Add(Form_LogIn.btn_login_ok);
      Design.Labeling_GlowButtons(BList); // Bringe ich nicht hier die Tüte zum Auto? (Ich finde das Beispiel klasse!)
   Finally
      BList.Free;  //Werfe ich die Tüte nicht erst jetzt, wo ich meine Einkäufe im Auto habe, weg?
   End;
end;

Oder geht es darum, dass ich diese Liste im weiteren Programm immer wieder mal heranziehen soll, wenn benötigt?

Vielen Dank
Patrick

[hoika]

Hallo,
so, wie Du das machst, ist es (auch) OK.