Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
Hallo,
so, wie Du das machst, ist es (auch) OK.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
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;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
Hallo,
was wird denn hier
ShowMessage(FListe_Button.Items.ClassName)
angezeigt?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
Hallo,
Mach mal danach
ShowMessage(Form_LogIn.btn_login_abbruch.Name);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
Hallo,
Freimatz
genau das meinte ich mit "Verwendung von lokalen Variablen".
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
10. Dez 2019
Hallo,
Du arbeitest leider viel zu wenig mit lokalen Variablen.
(ButtonList.Items as TTMSFNCToolBarButton).Text:= Data_Module.xDST_Sprache.FieldByName((ButtonList.Items as TTMSFNCToolBarButton).Name).AsString;
Vieleicht schlägt ja auch das hier fehl?
Data_Module.xDST_Sprache.FieldByName
Packe beide Sachen in 2 lokale Variablen!
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
9. Dez 2019
Hallo,
ohne das OwnsObjects=False passiert folgendes
BList:= TOBjectList.Create;
Try
BList.Add(Form_LogIn.btn_login_abbruch);
Finally
BList.Free;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hoika,
9. Dez 2019
Hallo,
ButtonList.Items.ClassName
oder
TObject(ButtonList.Items).Name
Was ergibt das?
BList:= nil ersetzen durch BList.Free;
Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.