Wenn du das rein mit Buttons machst kannst du natürlich auch einfach eine Zählvariable mit dem Komma Button koppeln.
Also wenn der Button geklickt wird erhöhst du die variable um 1 und prüfst bei jedem klick auf den button auch ob die variable schon erhöht wurde oder nicht.
Nur wenn nicht wird ein Komma geschrieben.
Wenn eine Operationstaste Taste wie +,-,*,\,sqrt usw... gedrückt wird setzt du die variable zurück.
Als Code könnte ich mir so etwas denken:
Delphi-Quellcode:
procedure TForm1.KommaButton1Click(Sender: TObject);
begin
if KommaCount < 1 then
begin
Edit1.Text := Edit1.Text+',';
inc(KommaCount);
end
else
begin
ShowMessage('Ähäm.. Nur EIN Komma!');
end;
end;
procedure TForm1.OperationsButton2Click(Sender: TObject);
begin
KommaCount := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KommaCount := 0;
end;
Willnix