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