Geisterjagt

[Edelfix]

Hallo,

ich jage nach Geistern. So fühlt sich aktuell meine Aufgabe an.

Ich betreue ein altes und riesiges Projekt. Jetzt wurde eine Maske / Form umgestaltet.

Seit dem habe ich zwei Komponenten die sich merkwürdig verhalten. Die GroupBox11 und die DBEdit2.

Beide bekommen zu Runtime eine andere Caption. Die Caption enthält Text der igendwo aus dem Untifen des Projektes kommen könnte.

Aber ich komme nicht dahinter an welcher Stelle die Caption geändert wird. Die Suche in allen .pas und .dfm Dateien hat nichts ergeben.

Sobald ich die beiden Komponenten umbenene bleibt die Caption unverändert.

Jemand eine Idee wo ich noch suchen könnte?

[AlexII]

Sind da Umlaute enthalten?

[himitsu]

Unit Vcl.Controls

procedure TControl.SetText

da einen Haltepunkt rein



und vielleicht noch Self.Name = 'ComboBox1' oder Self is TComboBox als Bedingung für diesen Haldepunkt
(das Debug-DCUs natürlich aktivieren)







oooooooder das ins Interface deiner FormUnit, vor die Deklaration der Form.

Delphi-Quellcode:

type
  TComboBox = class(Vcl.Controls.TComboBox)
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;  // oder alternativ WM_SETTEXT
    //procedure WMSetText(var Message: TWMSetText); message WM_SETTEXT;
  end;

Delphi-Quellcode:

procedure TComboBox.CMTextChanged(var Message: TMessage);
begin
  inherited;  << hier der Haltepunkt
end;

Leider waren weder SetText, noch SetTextBuf, virtual, also nicht direkt überschreibbar , aber

Delphi-Quellcode:

procedure TControl.SetTextBuf(Buffer: PChar);
begin
  Perform(WM_SETTEXT, 0, Buffer);
  Perform(CM_TEXTCHANGED, 0, 0);
end;

[Kas Ob.]

Hi,
There is many cause, but to diagnose we need a lot of context and questions, also there is many ways to capture this, yet again many gaps to find the best and shortest solution.

But first thing comes to my mind:
1) Is there language managing component ?
2) If renaming works, yet i might missing something in translation, both at the same time should be renamed or each renamed will not have the text ? if separately then try to trick the ghost by rename one and add something outlandish with the same name, like put some Indy component and see if it will crash, if that didn't help then make one specific/customized component for one of them with overridden Caption/Text setter and set a break point on it.
..

Hope that helps.

[Sherlock]

Da Du Dich ja für eine numerierte Benennung entschieden hast, hast Du vermutlich auch irgendwo eine Schleife, in der Du dieses "Feature" verwendest. Such also nach etwas, daß so ähnlich aussieht wie FindComponent("GroupBox" + i). Darum passiert auch nichts, sobald Du den Komponenten korrekte Namen gibst.

[Edelfix]

Das Rätzel konnte gelöst werden.

Eure Tipps wahren genau richtig. Es gibt eine alte „Translate Form“ Funktion. In der Funktion gibt es eine Schleife durch alle Komponenten der Form. Anscheinen ist die Funktion so ungünstig programmiert das sie die Caption mit der eingestellten Sprache überschreibt, sobald die Komponente gefunden wurde ohne zu berücksichtigen ob die original Caption noch passt. Altlasten.

Vielen Dank für die Hilfe.