Okay, vielleicht habe ich einen Denkfehler:
Delphi-Quellcode:
procedure TDesign.Design_LogIn;
var
BList: TObjectList;
begin
BList:= TOBjectList.Create; //Ich erstelle die Liste
Try
BList.Add(Form_LogIn.btn_login_abbruch); //Packe die Buttons rein
BList.Add(Form_LogIn.btn_login_ok);
Labeling_GlowButtons(BList); //Hier verarbeite ich jeden einzelnen Button. Wenn diese Procedure fertig ist, sollen alle Buttons so aussehen, wie definiert und ich brauche die Liste nicht mehr, oder?
Finally
BList.OwnsObjects:= false;
BList.Free; //Ich gebe die Liste wieder frei...
End;
end;
Und das wäre die Procedure Labeling_GlowButtons:
Delphi-Quellcode:
procedure TDesign.Labeling_GlowButtons(ButtonList: TObjectList);
var
I: integer;
begin
for I := 0 to ButtonList.Count -1 do begin
(ButtonList.Items[I] as TTMSFNCToolBarButton).Text:= Data_Module.xDST_Sprache.FieldByName((ButtonList.Items[I] as TTMSFNCToolBarButton).Name).AsString; //Aber hier klappt der Zugriff nicht...
end;
end;
Ich dachte, damit gebe ich die Liste erst wieder frei, wenn ich sie nicht mehr brauche...
Gruß
Patrick