Moin HappyTreeFriend,
sollte so gehen:
Delphi-Quellcode:
procedure TForm7.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #44) and (pos(#44,(Sender as TEdit).Text) > 0) then begin
key := #0;
exit; // Vorher kannst Du hier auch noch was anzeigen lassen.
end;
if not (key in [#8, #9,#44, #48 .. #57]) then key:=#0;
end;
Voraussetzung für meine Variante:
Dieses Ereignis darf nur für ein TEdit Feld verwendet werden.
@Stanlay:
Die Idee war gut, nur wirst Du im OnChange das Problem haben zu entscheiden, welches der beiden Kommata das erste war, um das andere wieder löschen zu können.