Thema: Geisterjagt

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.029 Beiträge
 
Delphi 12 Athens
 
#3

AW: Geisterjagt

  Alt 28. Nov 2023, 09:47
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (28. Nov 2023 um 10:47 Uhr)
  Mit Zitat antworten Zitat