Message-Parameter für CMTextChanged

[oki]

Hi marabu,

ich hab mir schon bald gedacht, dass das nur die Standardbenachrichtigung ist. Jetzt hab ich nur bemerkt, dass die bei mir gar nicht reagiert wenn was ins Edit geschrieben wird. Ich möchte ungern das OnChange-ereignis überschreiben.

Hier mein code der nie aufgerufen wird:

Delphi-Quellcode:

  TSizeEdit = class(TCustomEdit)
  private
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
    Function CheckText(AText : String) : String;
  protected
  public
    constructor Create(AOwner : TComponent); override;
  end;


procedure TSizeEdit.CMTextChanged(var Message: TMessage);
var CurPos : Integer;
begin
  // hier bearbeiten
  CurPos := self.SelStart;
  Text := CheckText(Text);
  if CurPos > Length(Text) then
    self.SelStart := Length(Text)
  else
    self.SelStart := CurPos;
  inherited;
end;

Gruß oki