Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
21. Sep 2007
:bouncing4: Halt STOP!
procedure TSizeEdit.CNCommand(var Message: TWMCommand);
var CurPos : Integer;
begin
if Message.NotifyCode=EN_CHANGE then //Achtung, hier musst du noch filtern!
begin
CurPos := self.SelStart;
Text := CheckText(Text);
if CurPos > Length(Text) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
21. Sep 2007
Das Onchange-Ereignis im TEdit wird nicht über CM_Textchanged sondern über CN_Command und (message as TWMCommand).notify=EN_Change ausgelöst.
Edit: Nur wenn du im vom Code aus die Methode settext (und damit settextbuf), also über das property "Text", aufrufst, dann wird zusätzlich auch noch CM_Textchanged ausgelöst.