Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
Delphi 12 Athens
|
AW: Merkwürdiger Effekt bei TLabel
29. Apr 2020, 16:58
Im Grunde würde ich auch wetten, dass es etwas in deinem eigenen Code ist, aber wenn es unbedingt sein muß...
Delphi-Quellcode:
type
TLabel = class(StdCtrls.TLabel)
protected
// einfacher/schöner zu Debuggen wäre es gewesen SetCaption aka SetText/SetTextBuff zu überschreiben,
// aber das geht nicht, drum hier über WM_SETTEXT bzw. CM_TEXTCHANGED.
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
end;
TMainForm = class(TForm)
...
end;
implementation
procedure TLabel.CMTextChanged(var Message: TMessage);
begin
Beep; <<<< hier ein Haltepunkt hin und dann im Stacktrace/Debugger schauen wo es her kommt, bzw. wohin es zurück geht
inherited;
end;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (29. Apr 2020 um 17:35 Uhr)
|