in edit maximal 1 KOMMA zulassen

[HappyTreeFriend]

also immoment hab ich diese Variante am laufen:

Code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in [#8, #9,#44, #48 .. #57]) then key:=#0;
    if (key = #44) and (Pos(',', edit1.text) > 0) then
    key:=#0


end;

scheint soweit zu gehen!



Mal was anderes

Ich möchte, da ich in manchen Editfenstern Zufallszahlen erzeuge, einen kleinen "Slotmachine" Effekt einbauen. Also dass er irgendwelche zahlen ziemlich schnell hintereinander im editfeld anzeigt und am ende dann die Zufallszahl bringt. Der Effekt muss nicht großartig sein, einfach ein paar zahlen schnell hintereiander ins Editfenster eintragen..

ich dachte es geht ganz einfach mit sowas wie
edit1.text:='3'
sleep(100);
edit1.text:='6'
sleep(100);
edit1.text:='1'


aber da bringt er dann nur die '1' ..

kann mir da noch jemand weiterhelfen? )

Danke!!!