Captionproblem TMainMenu

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Captionproblem TMainMenu

    Hallo,
    habe ein neues Problem.
    Ich möchte die Anzahl der Elemente und der dazugehörigen Unterelemente herausbekommen um sie später neu zu benennen. Dazu soll mir die Indexzahl diese Objeketes behilflich sein. In einer XML-Datei wird der Name des Objekts überprüft und der Wert der Caption anbgefragt.
    Mein Problem ist, dass ich nicht an die Indexzahl der Einträge in TMainMenu herankomme oder die Eintrage umbennen kann. Ich füge hier mal meinen Quelltext ein.


    Quellcode

    1. #include <vcl.h>
    2. #pragma hdrstop
    4. #include "Objektsuche.h"
    5. #include "ObjectDebug.h"
    6. #include <XMLDoc.hpp>
    7. //---------------------------------------------------------------------------
    8. #pragma package(smart_init)
    9. #pragma resource "*.dfm"
    10. TForm2 *Form2;
    12. #define __SHOWNAMES__
    14. //---------------------------------------------------------------------------
    15. // Einlesen der XML-Datei mit der Sprachen- und Objekliste
    16. // Suchalgorithmus zur Findung der Objektnamen
    17. AnsiString getName(AnsiString ObjName,AnsiString Sprache)
    18. {
    19. AnsiString BuCaption;
    21. try
    22. {
    23. _di_IXMLDocument LangXML = LoadXMLDocument("lang.xml");
    24. _di_IXMLNodeList NodeList = LangXML->DocumentElement->ChildNodes;
    25. _di_IXMLNode ObjNameNode = NodeList->FindNode(ObjName);
    26. BuCaption = ObjNameNode->ChildNodes->FindNode(Sprache)->NodeValue;
    28. return BuCaption;
    29. }
    30. catch (...)
    31. {
    32. try
    33. {
    34. throw Exception("");
    35. }
    36. catch (Exception &exception)
    37. {
    38. Application->ShowException(&exception);
    39. }
    40. }
    42. return 0;
    43. }
    45. //---------------------------------------------------------------------------
    46. __fastcall TForm2::TForm2(TComponent* Owner)
    47. : TForm(Owner)
    48. {
    49. // Ausgabe der Anzahl der Objekte
    50. Button_Para->Caption = Form2->ComponentCount;
    51. }
    52. //---------------------------------------------------------------------------
    53. void __fastcall TForm2::Button_BerPrClick(TObject *Sender)
    54. {
    55. // Variablen zum Zwischenspeichern der Caption und des Objektnamens
    56. AnsiString ObjName[50];
    57. AnsiString CaptionName[50];
    58. AnsiString Sprache = "eng";
    59. int NumberMenu;
    60. int NumberItem;
    61. int zahl = 0;
    63. #ifdef __SHOWNAMES__
    64. FormObjDebug->Show();
    65. FormObjDebug->LB1->Clear();
    66. #endif
    68. for (int i=0; i< Form2->ComponentCount;i++)
    70. {
    71. ObjName[i] = Form2->Components[i]->GetNamePath();
    73. TComponent *comp = Components[i];
    75. #ifdef __SHOWNAMES__
    76. FormObjDebug->LB1->Items->Add( "Name: " + ObjName[i] + " Class: " + Components[i]->ClassName());
    77. #endif
    79. if (Components[i]->ClassNameIs("TLabel"))
    80. {
    81. CaptionName[i] = getName(ObjName[i], Sprache);
    82. TLabel *label = dynamic_cast<TLabel *>(comp);
    83. if(label != NULL)
    84. {
    85. label->Caption = CaptionName[i];
    86. }
    87. }
    88. if (Components[i]->ClassNameIs("TButton"))
    89. {
    90. CaptionName[i] = getName(ObjName[i], Sprache);
    91. TButton *button = dynamic_cast<TButton *>(comp);
    92. if(button != NULL)
    93. {
    94. button->Caption = CaptionName[i];
    95. }
    97. }
    98. if (Components[i]-ClassNameIs("TMenuItem"))
    99. {
    101. if (Components[i]->ClassNameIs("TMainMenu"))
    102. {
    104. int zahl;
    105. NumberMenu = MainMenu1->Items->Count;
    106. Form2->MainMenu1->Items->Caption = "Test";
    108. //zahl = Form2->MainMenu1->ComponentCount;
    109. //MainMenu1->Items->Caption = "Test";
    111. }
    112. }
    113. }
    114. }
    Alles anzeigen