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