So, ich habs...
Folgendermaßen habe ich es nun gelöst:
Delphi-Quellcode:
if (InputA.SelLength = 0) then begin
lsText := InputA.Text;
liTSPos := Pos(#58, lsText);
if (liTSPos > 0) and (InputA.SelStart = liTSPos) and (Length(lsText) - liTSPos >= 1)
then begin
if not (key in [#8,#13,#48..#53]) then key:=#0 ;
Beep;
end; // (InputA.SelLength = 0)
end
else
//Edit
Hallo Lannes,
Das funktioniert auch. (wobei ich noch nicht weiß, WARUM das funktioniert. Muss ich mir unbedingt anschauen)
Das nehme ich jetzt auch.
vielen Dank und gute Nacht!
Grüsse Jürgen