Eingabebeschränkung f. eine Gruppe EditControls u. m.

[Emilio]

Hi @all,

in einer GroupBox sind 4 Edits vom Typ TEditCurr (extended); 1 davon ist für den user disabled, da es seinen Wert nur über eine Comboboxauswahl erhält.

Zuerst möchte ich die Eingabemöglichkeit auf Zahlen beschränken. Ich habe Beispiele für einzelne Editfelder in der DP gefunden - bekomme es aber nicht hin, dass es für eine Gruppe von EditControls funktioniert, d.h. ohne die Eingabebeschränkung für jedes Edit-Feld einzeln zu schreiben.

Vor dem Speichern soll dann geprüft werden, ob die Editfelder gültige Werte enthalten (sprich ".Value > 0"). Wenn eines der Felder leer ist, soll eine Messagebox erscheinen, die darauf hinweist dass ein Feld leer ist (geil wäre, wenn man exakt auf das Feld, welches leer ist hinweisen könnte). Das oder die leer(en) Feld(er) sollen dann eine andere Farbe erhalten, bis sie einen gültigen Wert erfahren haben.

bisher sieht der Code (dank der Hilfe von DP - wohlgemerkt!) so aus:

Delphi-Quellcode:

procedure TForm1.cxButton2Click(Sender: TObject);
var a : Extended;
    i : Integer;

begin
  a := 1;
  for i := 0 to Form1.cxGroupBox5.ControlCount -1 do
  begin
   if (Form1.cxGroupBox5.Controls[i] is TEditCurr) then
   a := a* (TEditCurr(Form1.cxGroupbox5.Controls[i].Value);
  end;

  if a = 0 then
  begin
    ShowMessage('Es müssen noch folgende Felder ausgefüllt werden : ...');
  end else
  begin
    ShowMessage('Änderungen übernehmen?')  // noch ohne Funktion
  end;
end;

Mit diesem Code habe ich also nur die Prüfung , ob ein Wert enthalten ist; jedoch nicht ... den gewünschten Rest.

Hat jemand Vorschläge?
Freue mich sehr auf Eure Antworten

VG
Emilio