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;