Hallo,
falls es noch hilft, ich habe das so gelöst. Auch wenns nicht die schönste Version ist, es funktioniert!
Delphi-Quellcode:
procedure TGotoForm.edGotoChange(Sender: TObject);
var s, sOrd : String;
begin
s := edGoto.Text;
If s = '' Then exit;
sOrd := Copy(s,Length(s),1);
Case Ord(sOrd[1]) of
48..57: Exit;
else
Delete(s,Length(s),1);
If s = '' Then s := '0';
edGoto.Text := s;
SendMessage(edGoto.Handle,EM_SETSEL ,length(s),length(s));
end;
end;
Bei mir ist das ein Eingabe Fenster mit einer TEdit wo man angeben kann in welche Zeile man im Text springen kann. Ich check allerdings nur den letzten Eintrag, den ganzen String check ich nicht durch.
FLOW