Dlaczego poniższy kod nie działa? Chodzi mi konkretnie o to, iż po zmianie stanu kontrolki (wpisania tekstu) nie jest wypisywany konunikat. Dodam iż wszystko kompiluje sie dobrze oraz tworzenie komponentu jest zainicjowanie na głównej formie.
Oto część kodu:
interface
uses StdCtrls {TEdit}, Controls {TMessages}, Messages {EN_ WM_ CM_};
type
TMyEdit = class(TEdit)
protected
procedure ENChange(var msg: TMessage); message EN_CHANGE;
end;
...
implementation
procedure TMyEdit.ENChange(var msg: TMessage);
begin
inherited;
UstawKomunikat('Zmieniono stan');
end;