Also, ich ersetze den Vorfahren von TWinControl (TControl) mit:
Delphi-Quellcode:
type
TControlEx = class(TControl)
private
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
procedure WMSetText(var Msg: TWMSetText); message WM_SETTEXT;
end;
In den Prozeduren möchte ich nun prüfen, ob Self ein TWinControl ist. Doch bei der
is-Abfrage bringt er mir inkompatible Typen. Aber hab grad gemerkt, mit
InheritsFrom scheints zu klappen...
Gruss
Shaman