Moin Leutz
Also ich hab mal wieder n kleines Problemchen... Ich will, dass in bestimmte Edit-Fenster in meinem Programm nur maximal 1 Komma stehen darf, also, dass man es praktisch auch nur 1 mal eingeben kann. Die 2. Lösung wäre, dass wenn es ein zweites mal steht, eine Showmessage angezeigt wird, dass ein Komma zu viel ist.
Code:
procedure TForm7.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8, #9,#44, #48 .. #57]) then key:=#0;
end;
{Hier wird das Komma im Editfenster erlaubt... müsste #44 sein, jedoch will ich ja, dass es nur 1 mal erlaubt ist, damit eine eingabe wie 1,2,3,... nicht geht.}
Kann man das vielleicht über solch eine Procedure machen?
thx 4 reply
so long Euer HappyTreeFriend